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© Apparatus and process tor reagent fluid dispensing and printing. 



© A system toe pHn.ng and d.pensing chemic^ J^TaJf^^ iXr^^ri: 

jTectsely controlled location. A letting tube. ^^X'^IL^iez^^^^ ^^^^"^ ^^^"^^ 

other end. is concentrically mounted wrthm a cylmdnc^ ^'J'^!!^? aS The reservoir is pressurized by a 
connected to a reservoir containing a selected reagent by f/J*^' iT^d^r The pulse causes the 

^gulated supply. An electrical s'^nal of ^.^^^ ^^^Tx^nT^er^^^^^ c,Santtty of reagent 

^transducer and the volume defined by the jetbng tube expand t^^^^^^ J^-JJ ,e^,pand. ther by 

gfluid. The cessation of the pulse ^.^^^^^^^^^^^ ^^pe'lled through the orif.ce. The 
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APPARATUS AND PROCESS FOR REAGEhfT FLUID DISPENSING AND PRINTING 

BACKGROUND OF THE INVENTION 

The present invention relates to an apparatus and process for dispensing and printing reagent fluids. 

micro-liter ^'"f"" . dispensing include the glass capillary pipet: the micro-pipef the 

of the fluid. ^„„ri«c a defined lenoth of precision Inner diameter tubing. The fluid is 

tubing when the valve is ptaced m a second position. Hi«.rtvantaae that the volum s dispensed 

3rer:;.r.r:rrs^.^^^^^^^ 

^-^ThTpS^cT^t^ntS^^^^^^^ 

selected reagents are printed .n a ""«Ourat.on on «nps^of^f^^^^^^^ P ^/^^„i^3, 

40 used as a disposable diagnostic tool to detemi.ne the presence or absence 

components. ^ oxoosed to a fluid or a series of 

Generally.no perfom, a chem-cal assay JT^^i^J^'^'Je S^Tnnsed and processed with 

fluids to be tested, such as blood, serum or unne. In ^me '"f ^^T'^J'P 3 ^„ ^ of chemical 
additional reagents pnor to being .nterpreted. The P'^'« ^Jo J^S Sc^^^ 
.5 reactions involved, but it may be as s.mpte as v-^^ly ^SS'^J^^lSnTg pr^^^^^^ or a blotting process. 
The manufacture of test strips 9«"««''V ^^^^^ Lgetrts to be applied without 

^srrd!^'^:^^^^^^^^^^ - - - - - 

« -rp.n«ng process .11 oHen ^^^^^^^^^^^ Jh^r^S^ 

transfer printing. The silk saeening of reagents flenera«y P « ^ „ to a 
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reagent fluid, specially prepared to have a high viscosity, is spread over the top s.de of the screen. The 
rtaoen passes through the porous areas of the screen and onto the test stnp. The test stnp .s then 
su£ed to a drving'process specific to each reagent. Once the test stnp is dry. It may be pnnted aga.n 

usinq a different screen, pattern and reagent. . , ^ , i;«ht can^itiun 

The gravure method of printing reagents comprises coating a metal surface wth a hgh sens.t ve 
polymer ^re polymer is exposed to light in the desired predetermined pattern. When cleve of«d^ the 
Svme ' creates hVdrophilic and hydrophobic regions. The reagent is specially prepared such that when 
Sd to « will adhere only to the hydrophilic regions. After the specially prepared reagent .s 

SeS. test strip is pressed against the metal and the reagent is transferred from the metal to the test 

""""The transfer printing method comprises transferring the reagents from a die to the test strip in the 
. H l«„m die is made with the appropriate pattern on its surface and then coated w.th the 

avoids these disadvantages. 
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SUMMARY OF THE PRESENT INVENTION . 

precise predetermined ""f^""' ^ . . . . _„„„j invention used in dispensing reagent fluids, a 

one end and a reagent receiving aperture at the other Tf„^ J^^^g^^^ a j tting control 

transducer d«xpands propelling a small quanlrty of me '««9«™ J^^^^^ ^^le aligned with an 
recepticle. If desired, additional droplets may be deposed m the recepticle or the fecept.c» g 
additional jetting tube for receiving en additional '"Sent «u.d^ 

desired corrfi^uration of the reagent fluid is printed on the med^^^^^^ ^^^^ ^ 

One advantage of the present invention is P'**^,*^ ^^""^1 /''^^ ^tus may be used to 
dispensed or printed in a reproducible ^^^^ reagents 

emit droplets of fluids having a wide range of reagent fluid ° 

Tnot in'general have to be specially adapted for use ^'^^^"^^^^^^^^ ^e^t tx, understood by 

The invention itseH. together with further ob,ects and attendant advamafl^^"'^ 
reference to the following deUiled description, taken in conjunction with tne accompanying g 
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BRIEF DESCRIPTION OF THE DRAWINGS 

RGURE 1 IS a schema^c representation of a first preferred embodiment of the present invention 

'"""'"f^^URE 2b is a cut-away perspective view of tt,e preferred embodiment of Rg. 2a taken along lines 
nrRE 2cTI iXrCesenta^on of the preferred embodiment of Rg. 2a ta.en along lines 2c- 
FIGURE 2d IS a sectional representation of tf,e preferred embodiment of Rg. 2c taken along lines 2d- 
FIGURE 2e Is a sectional representation of the jetdng tube and Uansducer of the preferred 
„ embodiment^ of Rg. f^^^^;, 3 second preferred embodiment opera^ng in the drop on 
aemand mode ^ a ^^^^^^^^^^X'^o. of a third preferred embodiment operating in the con^nuous 
.,ode J^-J-9e";P;f ^^^^^^^^^ of a portion of the Jotting head control unit showing the 

" "^GURrSb" is a schematic representation of a por^on of the Jetting head control unit showing the 
.igh representHtlon of a porton of the jetting head control unit showing the 

,s "Tu'rT S^is a schematic representation of a portion 0. the Jetting head control unit showing a 
portior^^^jepn^^tpuls^^^^^^^^ of a portion of the jetting head control unit showing an 

aadltion^^portion c^^^^^^^ of a second preferred embodiment of the jetting head of the 

presentinvention. ^ a sectional view of a symmetrical portion of a fourth preferred embodiment of the Jen.ng 
3s head o«*e Present mve^^^^ ^ ^ ^^^^ ^^^^ ^ , of em.s«on frequency for 

'"'"14""JfS'^in graph of the'velodty of the em.tted droplets as a function of frequency for severe 
,3 3 graph of the total weight of fluid emitted as a h^nction of the number of em.tted 
droplets for a grven fluid. 

DETAILED DESCRIPTION OF THE PRESENTLY PREFERRED EMBODIME^^TS 

Turning n'ow to the drawings. F^. 1 shows a ---tic mor^se^^^^^^ 'Z'SZtT^S^'^O 
of a r^egZ d.spensing system generally '^^^^f ^^^l^'^^;^ ^^'S^^ p.uralnv of reagem .etfng 
comprises a plurality of reagent fluid reseryo.rs ^^^^^J^^J^ '^^^^^ ^ J,^^^ 70O. transportafon 
heads 400. a plurality of jetting head coouol unite 500^ mterh^ unrt 
50 unit 902. a plumhty of fluid mixing -^^'^^^^^^^^^^^l^Z^o, dispensing. The reservoir 200 is 
The reservoir 200 holds a se«cted ^""^^^"^'^^'^"^ atmospheric vent The reagem fluid is 
maintained at atmospheric pressure by '"'^^^"'^^^J^f^,^ head 400. The f.lt r 300 is 

transferred from the reservo-r 200 through '^J^l'^l^lXx U particular foreign matter in the 
placed between the reservoir 200 and the jetting head 400 to ensure uiai a y m 
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the processing path by the transportation unit 902. The mixing cells 904 are comprised of non-rea«ive 
material and function as niinute holding tanks for the dispensed reagent fluid. 

The plurality of jetting heads 400. shown in Rg. 1. are positioned sequentially along the processing 
path. Alternately, some or all of the plurality of jetting heads 400 may be positioned with respect to the 
transportation unit 902 such that the heads 400 direct the droplets 2 into a selected mixing cell 902 
simultaneously. 

The jetting heads 400 and the transportation unit 902 are controlled by the computer 700. The 
computer 700 issues commands to an Interface unit 600 which is electrically conneaed to the transportation 
unit 902 and to ttie jetting head control unit 500. The Interface unit 600 Is of conventional design and Is 
used to control the transfer of information between the computer 700 and the jetting control unrt 500. The 
interface unit 600 is also used to control the transfer of information between the computer 700 and the 

transportation unit 902. . ,, . ^ ^ 

A first embodiment of the reagent jetting head is shown in Figs. 2a • 2e and generally represented by 
numeral 400. The jetting head 400 comprises a two piece symmetrical housing 402. 404. The housing 402. 
404 when assembled, is adapted to form an orifice aperture 406. an air vent and reagent supply channel 
4lo'and a transducer chamber 403. shown in Fig. 4b. Four screws 408. adapted to respective housing 
screw apertures 416. hold the housing 402. 404 in an assembled configuration. 

The jetting head 400 funher comprises a jetting tube 432. a piezMlectric transducer 434 and a reagent 
fluid supply tube 430. The jetting tube 432 defines a tapered orifice 433 at one end and a fluid receiving 
aperture 431 at the other end for expelling and receiving fluid, respectively. The piezo-electric transducer 
434 Is cylindrically shaped and secured concentrically about the mid-region of the jetting tube 432 with 

epoxy or other suitable means. ^ ^ ^„„,i,oe » 

The piezo-electric transducer 434. shown in Fig. 2e, defines a first and second end and compnses a 
section of cylindrically shaped piezeo^lectric material 435. An inner nickel electrode 437 covers the inner 
surface of the cylinder 435. The electrode 437 wraps around the first end of the cylinder 435 a sufficient 
distance to enable electrical connection external to the cylinder 435. ,. ^ tv,» c^^«nH 

A second nickel electrode 436 covers the majority of the outer surface of the cylinder 435. The second 
electrode is electrically isolated from the first electrode 437 by an air gap at the «ace of the second end o^ 
the cylinder 435 and by an air gap on the outer surface of the cylinder 435 near the first end. When an 
electrical pulse is applied to the first and second electrodes 437. 436 a voltage potential .s developed 
radially across the transducer material 435. The vottage potential causes the radial dimensions of the 
transducer 435 to change, which causes the voliJme defined by the transducer 434 to also change. 

The jetting tube 432 is positioned in the transducer chamber 403 such that tJie ««';«"0 f ^ 
extends beyond the rearvwd end of the transducer 434. The receiving end 431 of the jetting tube 432 Is 
inserted into one end of a reagent supply tube 430. The supply tube 430 Is sealingly held to the jettmg ube 
432 by concentric teeth 412 fom,ed by the housing sections 402. 404. The teeth 412 ncrt ojjy seal the 
supply tube 430 to the jetdng tube 432. but. also, seal the supply tube 430 to the housing 402. 404. 

Tie second end of the supply type 430 passes through the channel 410 and ^^^^IZaZ 
200. The reservoir 200 contains the reagent fluid to be dispensed by the jetting head 400^As the reagent 
fluid is dispensed, air Is supplied to the reservoir 200 through the channel 410 to prevent cr^tion ^f « 
vacuum in me reservoir 200. The reservoir 200 is reteasably attached to the •^"^S and ^'d J 

place by frictional forces. A resen^oir cap 202 is flexibly attached to the reservoir 200 '^'^^ ^^^.^^^^^ 
Se^ 202 may be used to secure the opening in the reservoir 200 when the reservoir 200 .s disengaged 

'""T^e'Son offheTt^ng tube 432 defines the horizontal p^ne of the J? 
432 and the transducer 434 are held in a pre-defined vertical relationship with respect to th housing 402. 
Jm Sy meanrof two upper vertcal alignment pins 418 and two k3wer vertical arignrnent P-n3j18^The ^o 
uowr vTrt^ aligmient pins 418 extend horizontally from the housmg section 402 into th transduc r 
SS,ber iS. SmZy. L two lower vertical alignment pins 418 extend horizontally from the housmg 
S^on 4(M into the transducer chamber 403. Each vertical alignment pin 418 is formed Integrally with the 

"'Cet.Tg1:LT3?:^^^^^ Sisducer 434 are held in a predefined horizontal relationship v.th r sped 
to th?^S «2. «4 by means of four horizontal alignment pins 424. Two of the honzontal alignmen 
pins 424 Send horizontally from the housing section 402 approximately midway mto th transducer 
Siamber ^3. Similariy. two of the horizontal- alignment pins 424 extend horizontally from t^e housmg 
tl7o^40A appn.xim«ely midway into the transducing chamber 403. Each '^f ""'^J, f 
temed intearallv with the r spective housing section 402. 404. The alignment pms 418. 424. sealing teeth 
?iTSd oS ape?urr4i a7e aligned and adapted to hold th jetting tube 432 and transducer 434 such 
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that the orifice 433 of the Jetting tube 432 extends '"f" "^J'".;,^'^^^^^^ 434 fro.^ the jetting 

An electrical transducer «=tivation pu.se .s sopp d t^the P'--^ J'jj^ ,,e 
head control unit 500 by rrieans of two con^ct pns 4^^ A q y . ^ ^^^^ ^ ^^.^^^ 

jet^ng tube fa each So e a'Setai.d descrrption of such a circu« will 

conventional circuits or commerc.ally available ""ns- "e description 
not be provided. However a drcuit for pi^oduo^ ^P^^^^^^ 
of the printing embodiment below. Due to 3, ,se. However, one skilled in the 

:n:r^ sscn: ^cSt^cr"^^^ - - ~ 

^"^t;nntact pm 42. defines an enlarged head ^ i~ ^^^^^^^^^^ rJcfprnrrs 
second electrodes 437. 436 located on the under the pin 

414. integral With the ^°"^"3.;«,^^2'42?S^^^^^ ^'^^^^^ °' 

heads 423 such that each pm head 423 ^^^'^J^ ^ ^^^^^^ ^^^^^.g 402. 404 opposite the contact 

transducer 434. Two <=-'^'^„^; ^^f^^^^^^^^^^^^ the contaa pin holders 414. The ends of 

pin holders 414 to engage '^°l^,l!^^23 e?eod through the housing 402. 404 by means of contact 

^ "^^r42f sSteTouTng :r404 are' forced symmetrically to one another, the 

rnt:?Sis%22 may be op^onaHy ^^^-^^^ll^^ ^^^^^^ , ,he jetting head 400 such that the 
,n operation, the reservoir 200 "-"tainrng reagent ""^ ^^'^^ J .^e free end of the 

,Md supply tube 430 J^^J^S^^^^^^ s suppL trough tne channel 410 around the 

supply tube 430 or positioned .ns.de the resej'o. ^^^^'J ^ Z^cs^enz pressure. The air is prevented 
supply tube 430 to prevent the reser>^r 200 from ^^^^'^J^^^^c^^^ 403 by the seal created 
from entering around the ^^PP'^ j"^ /'^^ '"'^.q jetting tube 432 may be pnmed by sl.ght.y 
« between the seaHng teeth 412 and ^"/ST^^f the supply tube 430 and into the 

?32"by the surface tension of the reagent fluid at ^f the jettir^ head 400. The 

The transducer activation pulse .s conducted to "^J';/^, 435 of the transducer 434 with 

30 contact pins 422 communicate the high ^^^^^^^'^^Z^^, rate of expansion is controlled 
polarity such that the concentrically ^'^''^^J^f^J^^^^ a rapid expansion. The expansion of 
I, Tense time of the high voltage ^^^^^^^^J^ZTL^s^.^^ 434. to also xpand. The 
the transducer 434 causes the jetung tube *32. wh'Ch « e^«eo which travels 

expansion of the tube 432 generates an ^ff-^. ^^"^^"'^oe^^e 431. When the expansion wave 
l^SJ^ reJt Si P?."nU. However, the suHace ten.on of the 

becomes a compression wave '^^^^[^J.VrSf eSed «mp^^^^^^^ wave is beneath the piezo-electric 
40 voiuge pulse width is adapted such that when «f e rej^edcomp ,he letung tube 

tube'434 me high voiuge P"'-^»=- -"^".^J,",^^^^^^^ n Se ln«nor of the iettng tube 432. The 

432. This action adds to the ^^^"^ ^^"^"^^'^^""^^g reagent flu.d to be-dispensed from the tube 
enhanced compression wave travels tow^ '^''^''^.^Zll^ and depcs.ted in the selected mixing 
432. The fluid is propelled from ^^J.^;/^^" .^t 2 is dispensed for each transducer activation 

.5 cell 904 positioned by the transtx^- ^^rd 0^ on 1' Jnd m^de. 

Zl:^^:^:^^^^^ ^Z:^ ol umform. contronably si.ed droplets 2 

- °'^^srtr2%Tre:;r:pi^^^^ 

cT.rS:So^Tth:d:^ra.on1oe where the mixed reagents may 

be extrarted for use or analyzed for assay railte^ ^^^g^s based upon the ability of the reagent jetting 
Tl,e dispensing system 30 prov.d?s 3 Jde range of reagents. Tne reaction 

head 400 to rapidly and ^-^^'^^^^ ^^^^^ol^^^^ ^^ tne reagU used. Th ability of the 
times of some chemical processes are '^^^'^^''l^^^li ^^^^^ thereby reduces the processing time 
dispensing system 30 to dispense such minute amounts of reagents y 
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of certain chemical assays. Furthermore, some chemical assays require a wide range of dilution ratios. 
Many conventional dispensing systems are unable to dispense the reagents in volume small enough to 
make the desired assay practical. The dispensing system of the pres ent invention overcomes this 

disadvantage. . , 

5 In addition to dispensing reagent fluids, certain embodiments may be used for precision printing of 
reaaents onto a printing medium such as filter paper to produce an assay test strip. A pnnt.ng system 10 
using the present invention is represented in Fig. 3. Structure similar in form and function to structure 
described above will be designated by like reference numerals. The printing system 10 comprises a 
reagent fluid reservoir 200. a filter 300, a reagent jetting head 400. a jetting head control unit 500. an 
10 interface 600. a computer 700, and an x-y plotter 800. 

The x-y plotter 800 is a commercially available pen ploner. mechanically modified in a conventional 
manner such that the pen is replaced with the jetting head 400. The general operation and structure of tt,e 
plotter 800 will not be described In detail. The plotter 800 accepts commands from the computer 700 thru a 
standard RS-232 serial interface contained within the interface unrt 600. The plotter 800 processes the 
commands and produces control signals to drive an x-axis motor (not shown) and a y-ax.s motor (not 
SowTT^e x-ax?s motor is used to position the jetting head 400 and the y-axis motor ,s used to position a 
drum (not shown) to which the printing target 1 is atuchod. 

The plotter 800 produces a pen down signal PENDN. This signal is appf-ed to the control unrt SOO and 

indicates that the plotter 800 is ready to begin a printing operation. ^ 

The control unit 500 also receives control signals troruthe interface unit 600. These signals .nclude 
sionals HIGHER-. LOWER" to control the magnitude of the pulse applied to the transducer 434; e reset 
S RST to re^et the control unrt 500: and a series of print signals PRT. The generation o Mh^ -9-ls 
will not be described in detail since their production is performed by the conventional =<^« ^« 

The jetting head 400 and fluid supply system 200. 300 are initialised and operate substantany as 
described above. The jetting head control unit 500. shown in f=igs. 5a - 5e compnses a pnnt control arcu. 
510 a^ulsTgenerator 530% high voltage supply 540. and a strobe pulse generator 56 . The contro urn 
500 also comprises a power supply. However, since the power supply is of conventional design i, will not 

" r ;r;^;'oT^.rir5^i receives the pen down signal PENDN from the p.«er 800 and comprise^a 
transistor Q100. a on^shot circuit U100. two NANO-gates UIOI. U102. « ""^J^^^^' 
four inverters U103-U106. The pen down signal PENDN is applied to the base of the transistor QiOO by 
res^sIorRIM R101 and diode DIOO. The emrtter of transistor QlOO is tied to ground and the collector .s 
connected to the +5 volt supply by resistor R1 02. «^ „. .. , .u^. «no.chn» iimn 

The one-shot U100 comprises inputs A. B and an output Q. The B '"P'^ °' 
conn^e^to the collector of the transistor 01 00 and the A input is tied to ground^ The t^-o 
Tulse produced by the one-shot U100 is detem,.ned by a resistor R104. ^'^'^^ '^''f^ ^'^^^^l:^ 
Moacter C100. The output 0 of the one-shot UlOO is combined with the collector output of the transistor 
01^; Se NANO-flTuiOl «,d then Inverted by the NAND-flste U102. The circuit « operative to 
?r ~u<S'an adjustabVdelay in the application of the pen down signal PENON to the contro un. «Xh 

The line decoder U107 is circuited to function as a 3 input ANOgate. The output of the NAND^ate 
U102^ applied to the first input of the decoder U107; the print signal line PRT compr^.ng a series o^ 
pulses from the interface unit 600 is applied to the second input and a i^^^'T^T^Z^Tuli^Z 
^teh SI is applied to the third input. The inverter U106 inverts the output of the line f ^107 to 
generate the print control signal PRT and the inverters U103-U10S invert the control signals LOWER. 

"'°"T^".rsc^^^ °^-^^""r^To:prs 

of *lJo Jotts peak to^ak at the reagent jetting head 400. The high votege supply 5^ compnse 
dfferential amplL Ul2^d transistors Ql. 02. 013. Oi4. A stable reference votege of vo"J 
produced at the junction of a reservoir R13. connected to the -15 vott supply, and 'l^^^^""^,^^ 

so S ground. The reference voltage is combined with a resistor R14 to produce J^'^^'i^^^^^^^^^ 
eference for the amplifer U12. The reference voltage is applied to the inverting input ol the ^"'P^^' er Ui2 
?rouah a resLr R11. The noninverting input of the amplifier U12 is connected to ground by a res.sto 

. m2 ?ie ampSer U12. in combination ^th a feedback resistor RIO. produces an output signal propor^ona. 

to the I ^T.cn supply. The signal produced at the emmer of ^^^^^'^^^'l^'^,' : 
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and the diode CR4. The transistor Q1 l''''^f2ZSo °rnS to the * 15 voltage supply. 
R7 and a capacitor C22 connect '"^J^^^^J'^T^^^^^^^^ ^iocKing oscillator. Any increase in current 
The transistor Ql and the transtormer Li tortn a i.yoa J* ^ ^ secondary winding of 

supplied by the transistor Q1 produces ar ^'^'^^'^I'^'^'l'^^^'^^^ me transistor Ql results in 
r— U and -Ba- cla.p" which 

an increase .n power ava> labia to «^ h.gn vo.«g ^ ^^^.^^^^ ^^^^^ ^,^3 

prevents transistor 01 from ^'^l^^^'^-^^^ J^.TaLei by the inductors L3. U. capacitors C24 C2 . 

The diode CR5 is connected to a mulbple p. 3 ,^5 in the signal suppi.ed to 

C41 and resistors R29. The n,u«ple pi Iter ll^^^^l^^'^.T'Tl^Jo. connects the base of the 
the transistor Q13 which produces the h.gh >'°^9« ^,3^ ^„„„ected to the collector of the 

Jansistor 013 to the emitter and to the '^'^'l''^^;^^,'^, ^'^'^,ae<i to the *15 volt supply by a 
transistor QU by a resistor R65. The base J ^^^^^"^^^ ^„3i3tor Q13 provides a signal HV 

resistor R67 and to ground by a resistor R66 _The emme ^ ^^^.^^^^ ^.^^ ^^,,333 

SENSE which is fed back to the inverting "P^^f^^'^jJ^f profjr biasing of the transistor 013 .s 

output V+ * is produced at the collector of ^^"^^""^.^^^.rQU. resistors R67. R66. R65. 
p^^vided by resistor R64 and the bias-ng opto-isolator U18. a one-sho, U23. a 

The pulse generator 530, shown .n Hgs. -f'^'^^ U25. The pulse generator 530 accepts 

digital to analog (D/A) converter U30 and ^ob,^co^^ U2 ^.^ ^^^^.^^ ^ 

control Signals PRT. LOWER% HiOHER RST^ P o^^^^^^^ ,,8 by a iumpor 

transducer 434. In normal °P«^^"°"- '^^r^rtrSSor U18 is of conventional design and compnses a i.gm 
JMP between contact points E5. E6^The ^J'^'^'^^^'^ R15 operates as the load resistor for the 
emitting diode (LED) circuit and a pf^oto^^me^ "l!lss« transient noise on the voltage supply to the 
LED circuit of the isolator and a "P^° °/.f ^re/to one inp^ of the one-shot U23 whose time constant 

volt DC signal level. , ^ . „„.f..or 530 is accomplished by directing a pair of 

^e control of the rise and fall rates of the P"'*« 8^"!^'°' "° l^^citor C57. The transistor Oil is 
curr^t source transistors 011. Q12 to ^2 IsTpS^tiveTal^k for ^^^^^ 

owratle as a source of current and the transistor °perattve as j^^^, 

Sis the level of the current by ^J^^J^j^^S^^ro "i^^^^^^^ proper rise and fall rates, 
of the transistor Oil. The bi«.ng °' ^."^'J'fgVe^^^^ to provide respective bias 
Therefore precision voltage '^^'^'^^^^^^'^^^l^ l^^^, rf.odes CR14. CR16 and resistors R55. R54 to 
A temperature compensation network « formed f«m ^^^^ b49. R52 may be 

maint^n stat,.e operation of tHe trans, Jors °2;^';J^'^Z ';^^ p^^e applied to the reagent .etting 
used to adjust the fall time and "^^^^''-^^'^l^^Jj- ^49 R5rR52. R53. R56. R57. R58 are used to 

reTbii z'^^.:^<^^^^-^-^ -° " " " 

^-t. impedance of .e outp. stage of the - ^c, - ^^^^^^^^ ^ ^a^ 

high impedance. drcuH elements attached to ^J"^^^^^^^ „sed as an impedance interface. Tne 
IL constants. Therefore, an FET input ope^ona. ^^^^^^^^ C58. CSS for stabiU.y. 

.5 amplifier U32 is configured in the non.nvert.ng ° u31 by means of a resistor R62. The 

" Ve output of the amplifier U32 »PP''f J°J„;7^:^3l^f SI ad of resistors R59. R60. Resistors 
«mpnf.er U31 inverts and conditions the pulse adjusting the DC level offset of the 

R63. connected to the -15 vo«age supPhT' P-^^^^Xenlla^e the performance and stability of 
amplifier U31 output signal. Capaators C51 . 052 are 

°ThTL. Of the amplir. U31 is app«ed ^Vje^^^^^^^^^ 
signal input RER*) of the D.A converter U30^The n^^v^^^^ .Ol^T. lOUT which are 

ground by a resistor R40. The C^A ^^^^^^l^'^^Z Z,e reference signal inputs REF(.). 
proportional to the difference between the posrtive J™ ^30 to enhance staiDility. 

55 RER-). Capacrtors 048. 049. 050 are connected "'^ ^ ^.^^ binary value applied to inputs 

iie D/A converter outputs '0"J. '0^^ ^'^^^^^ S'^Sthfch are controlled by the function signa. 
i:i;^.'^n^t::s^^rJiS- sT-^. - H.3HER. .g^ls are applied to the count up anc 
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count down inputs CU. CD of the counter U24 by means of opto-lsolators U19, U20. The cany and borrow 
outputs CY BR of the counter U24 are connected with the count up and count down inputs CU. CD of the 
counter U25. The reset inputs RST of both counters U24. U25 receive the RST signal by means of an opto- 
isolator U21. Resistors R16. R17. RIB are used as load resistors for the LED circuits of the isolators U19. 

s U20 U21 and capacitors 026. 027. 028 are used to enhance the stability of the isolator circuits. 

The counters U24. U25 may optionally be preloaded to the selected 8-bit binary value through input 
lines TP0-TP7 The input lines TP0-TP7 are normally biased to the logical high signal state by resistive 
network U22. The selected binary value is loaded into the counters U24. U25 by pulHrg the respective 
Tnp^s TP0-TP7 low and applying an external, active low. load signal EXT LOAD to P'" TP8 The load signal 

,0 pin TPS is connected to the load inputs LOAD of the counters U24. U2S end conditioned by a clipping 
circuit comprised of diodes CR9. CR1 0 and a pull-up resistor of the resistor network U22. 

The noninverted and the inverted outputs .OUT. lOUT are conneaed to the Inverting and noninverting 
inputs Of a differential amplifier U29. The output of the amplifier U29 is fed back io me men .ng mput by a 
Sor R50 The amplifier U29 converts the current output of the D/A converter U30 to a voltage output. 

1^ Canacitors C56 C47 are provided to enhance circuit Stability. / 
'Soutput of the amplifier U29 is applied to the t,oninverting input of the amplifier U28. The ou^ulof 
the amplifier U28 is fed back to the inverting Input by means of a capacitor C46 and a resistor R37 The 
leZ input is also connected to ground by a resistor R36. To enhance the frequency «SP0"5« "^^^ 

amp2 U28. a resistor R43 and a capacitor C54 are ^--^^t^^^n^o^X^^^^ 
FC and around An adjustable DC offset Is provided by connecting the output offset inputs OF. OF with a 
viiable Sor R42. Ihe wiper of the resistor R42 is connected to the high vonage power supply output 

^he output of the amplifier U28 is also connected to the base of a transistor CM ^d through diodes 
TRir cS!? S Se base of a transistor 07. The transistor 04. 07. 03 and resistors R30-R35 form an output 
^ Sab e oTdS high S,acitive loads at high slew rates and v.de bandwidth. The variable resistor 
R31 ma" i us^d to se^ the maximum current through the bias network R30. R33 by measunng the v Kage 

''°^TSc^T.I^^o. 560 produces a strobe pulse and comprises transistors QtOl-QtOS ^d a one^ 
Shot c^rmof Cstrobe intensity is detem^ined by the circuit comprising the transistors Q101-Q104 
fnd resSrs Rl09-mt5. The circuit Is connected to the anode of the LED 900 and rece.es two inputs 
from the interface unit 600 to produce four levels of light intensity In the LED 800. , . , „ ^ 

T?e aand duraL of activation of the LED 900 is determined ^l^J^^^^^"^,'^'^^ 

transis^r Q105 The one-shot U108 comprises inputs A. B and an output Q. The strobe signal STROBE .s 
Z^Txo ^lsTS^l^rtu, interface unit 600. The duration of the one-shot U108 ouj^t p..se ,s 
S^S otd by the adjustable RC network R107. R108. The output 0 is applied to base of tti trans^or 
Si 0?by resUor R108. The collector of the transistor 0105 is connected to the cathode of the LED 900 to 

'™^ThT;mp'::t:;'m co"^^^^ SOO P-otter eOO must be in...ized. The ln«al.ation of t^^puter 
700rd *e plotter 800 will not be discussed since these units '>'l^^^Z"TrJ^^!^^^^xT^ue a 
To initialize the ietting head control unit SOO. the computer 700 directs the Interface unit 600 to Issue a 
r«.J «mrJind T^r?eset Thai RST is conducted to the control unrt 500 whereupon the counters U24. 
uls aS deari ^ie compSr 700 then retrievas from its memory, or by conventional open«or .np«^. the 
Ssir^ daterseWng fo^L D/A converter. This setting may also be calculated from data and may be 

command directs that the counters are to be lowered « cY. BR of 

isolator U19 to the count down CO input of the counter U24. Since me "'^^^/^^^^ ^ 
50 the counter U24 are connected to the count up and «unt ^"-"'"P'J^CU CD^^^PJ^^atl^^ ^ 

U25. the digital setting applied to the J^^^^^^ and 

U24. U25 could be initialized to a desired setting by toadmg the binary vaiue on u e 

strobing the EXT LOAD line. nrintino cvde may begin. The computer 

Once the control unit 500 and the plotter 800 ar initialized. <f .^I'^Jp^ ^^g";^^^^ fhe computer 
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delay, the signal Is ANOed with the closed enable switch Si and the series of pnnt Pu'ses PRT. The result 
of the AND operation is the application of the PRT pulses to the pulse generator arcu.t 530. 

The PRr signal is applied through the jumper JMP to the opto-isolator Ul8 and then o the one-shot 
UZsThe one-Shot U23 produces a pulse signal which is then converted fror. CMO^^s.gna. ev^^^^^^^^ 
volt DC signal level by the transistor Q9. The rise and fall crcu.try cor.pns.ng '^"^^^-^^e 
square wave pulse into a pulse having the rise and fall charactenst.cs preset by 
conditioned pulse is then amplified by the amplifier U32 and applied to the amplifier U31. 

Tirrmoiifier U31 converts the polarity of the conditioned pulse to that acceptable by the D/A converter 
U30 a^d sSes an a^^^^^^^ DC o«set The DC offset is used to coumeract possible d.storton 
Shbi tote amp fi r U31. The distortion arises in that, for the amplifier U31 to f^^^^j'^^ 
rrnste.asmande,eeof^^^^^^^^^^ 

Z^^::^:^^ rs': amoun/o, cu- . b^^^^^^^^^ to the ampler 

r^ J T^ZZ Bi B8 to Droduce a current output pulse lOUT and a current inverted output pulse 
foS Th: ToS^r OU?. ?o'J?- ,ed to the amplifier U29 which convert the current outputs into a . 

, ■ ^.,n« o3^The scaled conditioned pulse is then applied to the output arcurt comprising the 
J'SJr ula a°rSTe i;nsfsro?Q3. 04. 05. 06. 07. The circuK produces a h^h vo^ge pulse with the 

^Te^rh^oSeToriX™ 

onto^e ISe SinS^the pen down signal PENDN is still applied, additional droplets 2 are P'o<iuce<i U°"^ 
^e ietfmr^ead 400. Sie plotter 800 moves the jetting head 400 and target 1 along me desired path dunng 
em ssi«n of the dropteS 2 to produce the desired printed line. When the pnnting is complete, the plotter 
SioTemo's the in d^^^^^ signal PENDN and the droplet emission stops. Of course . should be 
SSLZd thardot^circles and the like could be produced by appropriate positioning of the target 1 and 

Jetting head 400 presence of any satelite droplets, may be 

=„cft M »» WXeo a pass MW^i. in. «op. MO ^ <^^^ LED 800 to n,o™^»ll, «.«.. Tl» 

system comprising a normally close throe way " hvdraulic pressure and broKen into a 

continuous mode, the reagent fluid is forced out the onfice 433 ^^^^'^^^ ^^^^^^ ,,e,ed air 
series of substantially uniform droplets 2 move-em f me ^^^^^^^/'J^^ ,,3,^,, eoo 

comprising suspended P^^^^- channel a normally open channel and a normally closed 
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o! the jetting head 400. The reagent supply tube 430 is also connected to the sump 960. 

In operation, the normally closed channel is opened by an appropriate signal supplied by the computer 
700 which also closes the normally open channel. When ttie normally closed channel is opened, fluid is 
permitted to pass to the sump 960 and to the jetting head 400. The sump 960 collects the reagent lluid not 

5 transferred to the jetting head 400. The sump 960 supplies the collected fluid to the inlet s.de of the- 
recirculating pump 980 which returns the fluid to the reservoir 200. The returned fluid is then mixed with the 
contents of the reservoir 200 and is available for recirculation. 

When operating in the continuous mode, rather than interrupt the continuous stream of print pulses to 
the jetting head 400, the printing may be momentarily stopped by closing the normally closed channel of 

,0 the valve 970 The closing of the normally closed channel stops the flow of reagent fluid to the jetting head 
400 and allows the jetting head 400 to vent to atmospheric pressure. With the fluid supply blocked, the 
transducer 434 is unable to expel further droplets 2. Thus, if positioning of ttie target 1 by the plotter 800 
requires a longer time interval than the time between droplet 2 emission, the computer 700 may close the 
normally closed channel of the valve 970. The plotter 800 may then position the target 1 or position a new 

IS target 1 as desired. . ^ . . 

When printing the active ingredient of the reagent is tailored to achieve a desired concentration per unit 
area on the target 1. However, to a certain extent the final concentration per unit area can be adjusted by 
varying the density of the droplets 2 printed on the target 1. The preferred embodiment is particularly well 
suited to this application due to its ability to print precise, discrete pels of reagent. 
20 A second preferred embodiment of the jetting head Is Illustrated in Figs. 6a-6b and .s generally 
reoresented as 400'. The jetting head 400" comprises housing formed into three sections 40T. 402 . 403. 
The housing section 403' comprises a recessed region whicti forms the reagent fluid resen/oir 200 wtien 
the housing section 403' is positioned against housing section 402'. ^ 

The jetting head 400' further comprises a piezo-electric transducer 434" and a reagent jetting tube 43Z 
2S similar to those of the first embodiment'. The jetting head 400' and the transducer 434" are most clearly 
Shown in Fig. 6b. The jetting tube 432" defines an orifice 433" at one end and a reagent fluid receiving 
aperture 431' at the other end. The transducer 434" is mounted to the jetting tube 432' concentrically about 
the mid-region of the tube 432' with epoxy. , ... •„ 

The transducer 434' and the jetting tube 432' are positioned in channels 420'. 418-. 416' located m the 
housing sections 402-. 40f. The channel 4i6- comprises a plurality of sealing teeth 4i2- ope'«.ve to 
engage and seal against the fluid receiving end 43V of the jetting tube 43?. The channel 416- .s connected 
to Ihe reagent fluid supply channel 430". The supply channel 430' is connected with the fluid resen^oir 200" 
by means of an aperture 431' through the housing section 402-. shown in Fig. 6b. 

The reservoir 200' comprises a flexible resen/oir lining 201 • adapted to contain the reagent fluid. The 
lining 201' comprises one aperture which is connected to the housing 402' to allow the 'j^i^ t° p^ss f^ 
the lining 201'. A vent (not shown), located .n the housing 403'. allows the space between the resen/oir 200 
and the lining 201' to be vented or pressurized. A fitter 300' is positioned within the aperture 20Z to trap 

unwanted particulate foreign matter. . , tho oin.: <i?p- 

Bactrical pulses are supoUed to the transducer 434' by means of two contact pins 422. The pins 422 

„ are inserted through respective apertures 419- of the housing section and respecnve apertur s 421 ol 
mo housing section 403". Two thin electricany conductive strips 410-. ^H'. s^own jn F.g^6b^ are used to 
connect the transducer 434' with the contact pins 422'. A protective shield 405" extends from th housing 
position 403' to partially isolate the protruding portions of the contact P'ns 4^. . 

The function and operation of the jetting head 400" is similar to that of the jetting head 400 and 

« therefore winnot be dSissed in detail. The collapsible inner lining 20V of the resen^oir 200 allows me 
SCt^b^ 4S to be primed by pressurizing the reservoir 200" through the vent 205'. Once pnmed. the 
iettino head 400' mav be used as described above in reference to the jetting head 400. 
' T^eZ heaS ^ provides an advantage in that me entire fluidic system - contained in one 
housing. Such containment allows for fast and efficient replacement of me jotting heads without fluid 

50 contamination problems. . r- ^^oaraiiw rAnrP<!P>ntfiH as 400' 

A mird preferred embodiment of me jetting head is shown m Fig^7 '^"^ ^^^'^^^\^''l^2t<^^^,c 
The jetting head 400' comprises a housing 403'. a reagent fluid supply tube ^^'^^^^^"^^^'^ 
transiucer'434- and an orifice plate 404'. The housing 403' defines a .""'«"r^^,^;^ " 
An orifice plate 404'. defining an orifice 43r. is fastened to me housing 403 such mat the orifice 433 is 

ss located at or near me apex of the conical fluid chamber 432'. ^H,„n.i ^-^n- Th*. suoolv 

The fluid feed tube 406' is attached to me housing 403' and defines a supply =^«""«'.^30 Jhe supply 
Channel 430* is in fluid communication wim the fluid chamber 432' by « "^J^^^I^^V^^^^^^^^ 

The base of me fluid chamber 432' is fomied by me disc-shaped transduc r 434 . The transducer 434 is 
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held in position by a hoid down plate 402" attached to the housing 403' The 

transducer 434' are of conventional design and are therefore not shown. The housing 403 further 
comprises a threaded aperture 406- for mounting the jetting head 400. ^...^.^ However in 
The jetting head 400' operates in a manner similar to' the jethng heads described above. Ho'^e^^r ,n 
s this ^rtng head the transducer 434' Is normally disk shaped. When the electrical pulse f pp'.ed^ t f 
Usducer 434- bends slightly, thereby altering the volume of the con.c^lly « ^J^^^^^^ 

The Change in volume of the chamber 43? causes the expulsion of flu.d f/°"9h *e o"fice 433 and the 
intake of fLd through the supply channel 430' as described in reference to '^f he^^^^^^^^ 

A fourth preferred embodiment of the jetting head Is shown m F.g. 8 and 'S OeneraHy 'ef>resen^ as 

. .c.^.jne jewing head ^^^^^^^ 

Z^^^S- saU not show, when .sembled, the housing 

'^::\Z^T:^:';::nltTX:^^ r -ner slmnar to the jetting head 400. The jetting 
h J X-Tespeclar suited for use in the continuous mode, but may also be used in the drop on 
SemanTmoda. rrl«lus mode, the fluid is circulated continuously through the supply channel 430 

i, the aLo e de crLd embodiments. The computer 700 is an 'BM.Corpora.on Persor«, C^^^^^^ 

SrS^ kbvtes of nm memory. The interface unit 600 is a Burr Brown interface unrt model number PC 
Soor^he Se 800^s manuilctured by Houston instrument as model number DMP-40. Co"""'^-"'- 
TeS^een^he pToner 1 and the Interface unK 600 Is performed through a standard asynchronous sena. 

~eScS°i.se applied to the jetting head 400 to activate the transducer 434 comprises a Je^me 
of aooro^mJtrs usees, a fall time of approximately 5 usees and a pulse width of approx,rna«ly 35 usecs^ 
1^rZ :ZL 434 is operated in the drop on c^e-d mode, me voiuge^^n^.a. oU^e^ 

Z£^::::z::i^. z ^z:^ ™ ~ - - 

.J::>::T.2. -.^e. mslde diameter. The tube Is --J^ l^d^e^ 



IS 



20 



tube. 



40 



'The suooly tube 430 is fom^ed from .023 inch inside diameter and J8 inch outside d.ameter 

in a circulating air oven at 65-C. for one hour to cure the epoxy. ^ ^ . drop of epoxy. The 

The contact pins 422 are secured to one of the housing 'f'J^'^^^^^^^^^^^ 432 
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housing. The air pressure supplied to the reservoir 200 during continuous printing operations is regulated at 
approximately 10 to 30 psi. 

The reagents used have the following characteristics: 
Printing (drop on demand mode): 
Fluid viscosity range: 1 • 30 centipoises 
Fluid surface tension: 20 • 70 dyne/cm 
Printing (continuous mode): 
Fluid viscosity range: up to 50 centipoises 
Fluid surface tension: not measured 
Dispensing (drop on demand mode):. 
Ruid viscosity range: 2 • 30 centipoises 
Fluid surface tension: 20 • 70 dyne/cm 

A measure of the performance and selected operating characteristics for a typical jetting head are 
presented in Rgs. 9-11. Fig. 9 Is a graph of the mass of a droplet as a function of droplet emission 
frequency for three fluids. The viscosity of the fluids were 1. 5 and 24 centipoise and the transducer 
excitation pulse width was 35 microseconds. As shown in Rg. 9. the higher fluid viscosity results in a more 
stable operating performance of the jetting head. Rg. 10 is a graph of droplet velocity as a function of 
droplet emission frequency for fluid viscosities of 1. 5 and 24 centipoise. The log of the total fluid weight as 
a function of the log of the number of droplets emitted is shown in Rg. 1 1. The fluid used has a viscosity of 
2 centipoise. a surface tension of 20 dynes/cm. and a density of .8 grams/cc. The transducer excitation 
pulse was 80 volts and the excitation frequency was approximately 71 1 Hz. 

Some blood typing reagents and some allergen reagents have very low viscosities and surface 
tensions. Although in some cases viscosity modifiers, such as glycerol, dextran. glucose, and the like, may 
be added to increase the viscosity, a few reagents are adversely affected by sucti modifiers. • 

Developing stable and reproduceable demand mode jetting is difficult with very low viscosities. 
Although droplet emission can be established at some fundamental frequencies, the droplets dispensed 
may have small satelite droplets whict* reduce the accuracy for metering and dispensing applications. 
However, even with the sateIKe drops, sufficient reagent is adequately delivered for most pnnt applications 
without a substantial deaease in print quality. 

Glycerin may be used as a viscosity modifier to improve jetting reliability and to prevent obstruction of 
the orifice arising from evaporation of the reagent fluid components. Glycerin has been found specially 
beneficial for those reagents containing particulate material, the evaporation of the fluid component results 
in a concentration of glycerin located at the orifice. The plug of glycerin substantially prevents further 
evaporation of the reagent fluid. During the next activation cycle of the transducer, the plug of glycenn is 

expelled from the orifice. ■ ^ ... ...K«»„»iaii« 

When operating in the dispensing mode the volume of the droplets can be vaned to substantially 

uniformly contain from 100 pico^Her, to 1 micr^lrter. The droplets can ^ ^^^^^^JJ ."^l^ 

approximately 1 Wa to 8 Wu. When operating in the printing mode the sae of the pel made by each 

droplet measures approximately .001-.012 inches In diameter. 

A copy of the program used in the computer 700 for a printing operation is attached hereto as Appendix 

A. The values, manufacturer and manufacturing part number of the cireuit components of the lettmg control 

unrt 500 are substantially as follows: 
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Re 5, Numeral 
of Componen* 

R39, 45-48. 57, 

58 
R66 
R3 
R34 
R50 

R13,23,36,40, 

41 
R56 

RS 
Ro 

R7, 12,25 

R67 

R51,53 

R29 

R61 

R15-18, 26-28, 

54,55,64 
R62 

R30,33 

RJ21 

K19 

R3 5 

R43. 

R60 

R37 

R9 

Rll 

U2, 11, 14, 16,22 

C21,41,45 

C24 

CIO 

Cl,2,3',55,60 

C53 

C36 



Description 
and Value 



RES - 10KOHMijWATT5%C . F 
RES . 150OHI'ft:WATT5!;C . r 
RES . 15KOHMVWATT5%r . F 
RES . 16KOe-lijWATT5%- . F 
RES . 2 . 4KCHI^ViWATTl%M . 



RES . 2 . 4KOHI4VrV7ATr5%C . F . 
RES . 20KOHMiiWATT5%C . z . 

RES . 220OHrv<WATT5?,C . F . 
RES . 270H:'-iV;ArT5?,Z . Z . 
RES , 2KOH!-:i:V/ATT5!;C . F . 
RES 3 - 6i:OHr'I>rV:ATT5T;C . F . 
RES . 3 . 9KOHr43sWATTS;;C . F . 
RES . 300KOHI^i2t V7ATTS?;C . F . 
RES . 30KOeT>jWATTlT;:-: . F . 

RES . 4 . 7KOHI-!?sV/ATT5?;C . F . 
RES . 45 . 3KOHI-15jWAm!o':< - F . 
RES . 470Hr-?<WATT5%C . F . 
RES . 470OHI4isWATT5*;C . F . 
RES : 47KOEI-I>iV^ATT5?;C . F . 
RES - 5 lOOHi^ijWATTS^C , F . 
RES . c . 2:<CHI-:iiV7ATC5%C . F . 
RES . 7 - 5KOHr%*rV;ATT5%C . F . 
RES . 75KOHM25WATT5%C . F , 
RES . 76KOHI'Il5V7ATTl%r< . F . 
RES . 8200HMijWATT5%C . F . 
RES. DIP OTTWRK.47K0HM 
CAP . AXI ALIMF©250VDC 
CAP . AX:AL220MFi?250VDC 

CAP.AinAL ALUI'3 ELEC. 

4700 OMFg25^n:C 
CAP. RADIAL DIPPED TA^rT, 

10Mr@25VDC 
CAP. RADIAL DIPPED TANT, 

1MF@35VDC 
CAP.RADI.AL DIPPED TANT, 

47MF'P10\TDC 



Manufacturer 
and Part No, 



DALE RL079242C 



DALE RL079303G 



DALE RM55D4532F 



DALE RN60D76a2F 

CT9 761-1R47K 
I4ALL0RY ;fTC56 
I4ALLORY 

LP2219250C7P3 
MALLORY 

TCG472UC25NIC 
KEMET 

. T35GE106M025AS 

T35OA105KC35AS 

KEMET 
T350E566MC10AS 
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Ref. Huneral 
5 of CoxDonent 



C54 
C57 
C49 
C39 
15 C6 

C30,35,37 
C4,7 



20 

C4, 5, 6, 9, 11-19, 

22,23,25-28 
031-34,37,42,43 
47 , 46, 50-52 
25 C55,5c,59 

C46 

CR7,8,9,10, 
11.12,17 
30 CRl ,2,3,4 
CR5 

CR6,13,15 
CR14, 16 
U6, 13, 15, 17 
35 Q2 , 9 , 12 
Q8,10,ll 
Q4 
Q7 
Ql 
40 23, 14 
Q13 
U5,27 
U23,26 
U7-10 
^5 U30 
U24,25 
U23 
Ul 
U4 
U3 

U12, 29, 31,32 
UIB, 19,20,21 
R24,42,63 
R38,49,52 
R20 

R14,31 



50 



55 



Description 
and Value 

CAP. RADIAL SILV MICA 

100PF300VDC 
CAP. RADIAL SILV MICA 

20PF300VDC 
CPS. RADIAL SILV. MICA 

39?F300VDC 
CAP.RAJDIAL X7R MLC 

.015Mr@50VDC 
CAP. RADIAL X7R MLC 

.022MF(a50VDC 
CAP. RADIAL Z5U MLC 

.015MFi?50VDC 
CAP. RADIAL 25U MLC 

.01MF@50VDC 
CAP. RADIAL 25U MLC 

.22MFiS50VDC 



CAP.VARI .2-12PF. 
DIODE SIL. 

DIODE SIL, FAST 
DIODE SIL.FASTHIVCLT 
DIODE SIL.REF.2,5COVDC 
DIODE SIL.ZEMER3.5V.25WATT 
SWITCH 8 POSITION DIP 
TRANSTOR. COMMON MPN 
'TRANSTOR . COr^^ON PMP 
TRANSTOR , HI VOLTHIFRZQ . MPN 
TRAMSTOR . HI VOLTHI FRZQ . PMP 
TRA.>1ST0R . HI VOLTHI INPN 
TRANSTOR . HI VOLTNPM2N3 43 9 
TRANSTOR. HI VOLTPNP 

IC 1-SHOT 74HC221 

IC 1-SHOT 74LS221 

IC COr^PARATOR 74HC688 

IC CONVERTER DAC0800 

IC COUNTER 74HC193 

IC HI SLEW HI VOLT OP AMP 

IC HYBRID DC/DC CO^^^/r.RTER 

IC OC DRIVER SK7406 

IC OCTAL LATCH 74HC374 

IC OP AMP LF256 

IC OPTO ISOLATOR 

POT100KOHMijWATT10% 

POT10KOHMijWATT10% 

P0T2 SKOHMijWATT 10% 

POT2KOHMijWATT10% 



Manufacturer 
and Part No. 

KAHGAN 

SD5101J301 
KAHGAN 

SP12200J301 
KAilGAN 

SP12390J301 
KEIffiT 

C315C102K1R5CA 

KEIffiT 
C315C223K5R5CA 

KEMET 
C315C153K5R5CA 

KEMET 
C315C103K5R5CA 

KEMET 
C322C224M5U5CA 



JOHANSEN ^i9626 
ITT.FAIRCHLD. 1N4148 

GENL. INST.EGPIOD 
GENL. INST.XJF4007 
NATL. SEMI-LM3852-2 , 5 
MOTOROLA 1N4522A 
CTS 206*8 
MOTOROLA 2N2222A 
MOTOROLA 2N2907A 
MOTOROLA MPSUlO 
MOTOROLA MPSU60 
TI,M0T0R0LATIP48 
MOTOROLA 2N3439 
MOTOROLA MJE5731 
NATL. SEMI MM74HC22IN 
NATL. SEMI DM741S221N 
NATL. SEMI MM74HC688N 
NATL. SEMI DAC0800LCN 
NATL. SEMI MM74HC193N 
BURR- BROWN 3584JM 
BURR- BROWN MODEL 724 
NATL. SEMI DM7406N 
NATL. MM74HC374N 
NATL. SEMI LF256H 
HEWLTT-PCKRD HCPL2300 
BOURNS 3622-1-104 
BOURNS 3622W-1-103 
BOURNS 3622W-1-253 
BOURNS 3622W-1-202 
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15 



25 



30 



35 



Description 
and Value 

REGULATOR 5VDC 
RES . lMEG0Hi'Ii2V^ATT5%C . ? . 
RES . 1 . 2KOHr-I^5WATTS%C . F . 
RES . 1 . eKOHI^-IisWATTSJiC . F 
RES , 1 8K0HI-IisWATT5%C . F . 
RES , 10MEG0HI4^V;ATT5%C . F , 
RES . 100Hr^ijWATTS%C . F , 
RES . 100KOHr^iifWATT5%C . F , 
RES . 10K0HI^ijV^ATTl%!4 . F . 
RES.270OHI4 
RES.470OHM 
RES.IKOHM 

RES.470COH!-: 
PCT.IOOKOHI^ 
PCT.10K0HI4 
RES.220OHI4 
RES.22CHI': 
RES. 470HI-! 
C.-^.10KF03 5 VFC 
CAP.IOCOO PF 
DIODE 
TRA>:STOR 
TRANSTOR 
TRA^ISTOR 
IC I-SHOT 
IC INVERTOR 
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DALE RM55D1002F 



Ref. Numeral 
of CoTTiDonenr 

VRI 
RIO 
R2,4 
R32 
R44 
Rl 

R5,R22 
R65 
RS9 
RlOO 
R101,108 
R1G2,1C3 

106,109, 110 
R104 
R1C5 
R107 

Rill, 113 
R112 

R114,115 
ClOO 
C108 
DlOO 
Q100,1C5 
0101, 102 
5l03,104 
UlOCUlOB 
U103,104 

105,106 
U108 

Of course it should be understood that a wide range o( changes and modifications can be made to the 
preferred embodiments described above. For example, the transducer could be of a type other Jh^ P^^^^^ 
electric such as magnet<^strictn/e. eiectro-strictive. and electro^eci^cal. It is therefore mtended that the 
forBQoing detailed descnplion be regarded as illustrative rather than Umiting. and that rt be understood that 
it is the following claims, including all equivalents, which are intended to define the scope of this invention. 
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Rcioft:: Ut Pfinltr 



rAS£ 1 
07-14-U 
l2:Ui57 

m ftriQnii Catpatir BASIC CotpiUr V2.0O 
(KHit Qati Sourct Lifl« 

«R niTL£;7ei5efit Ui FrinUf ISUITITU! 'fieiqint CiUirilion' IUKESIIEj IH 

•ccpmi.-HT (ci i?e5 ABion lmqiiatories 

•UEVISIW - 2.0 07-fll-Bi l« Ricrofib •o^iHcUioni 
- l.C 02-11-86 «A£ Cfutio* o< iiitiil codi 

•STSTCT - Thi* codi cm wly It cotpilri by tht EASCOT 

COTIUR, it iill Mt rva in4<f the IKT£RPR£TER1 ! 

'BtSOUPTlOU . 
nt rtiqetil eilibrati todult prtswU i itflu »ilh 12 itfts irrtn^ti 
U 3 of 4 fert. n* irro* k»Y« tottMit irmini Uf 

tait, Ihf ♦ 4fld - keti iwritwl or dtcnttat vilatt in Ui Hrii 
coluw, «d Iht Htcr kiy nKatM cMM>d« io Ut third colai«. 
Th* Mcoad coIoM it m wriy ASCII itfifl<i rtprnwtin^ rei^iftt ft4«t, 
cwctntritioQ, dt«ity, viicMity. Thi uiw% tottfrt it nloM «• 
ut drop Iftqutflcy, pulit ridlh, ftrrt« dtUy, wd nonlt aurter. 
Tht cQuindt ifi tht third coUm tfi ttvt/Jtop, lo4d, «m, «d uit. 

•DATA oiCTiattirr , 

RCm Polattr to ■bid ttM itt« it «tl« (fr-U) 

lBW(l7,n Arrty Uf ttrii^ «*d to ditpUy tht two 

IOBJil7,<l Arrty 'ar autbtft i« tht tfwi di*#Uy 

Sim OiUfftntul to iOTf AEWI it trrw kty Iftput 

Tr?£l fointff tft doriaq •4ia tCM to diftct Ktion 

ffTWFf Stortqi »af ttria^ upit Irct ttay ditpUy 

U Ofitiftitiea lof titqli ktyslfoU iapuH 

nUI Slnaq tMft Hlfflitf It bwU 4ef ritjtnt dati HU 

l£AKAA£t Stnaq aitirt rtifut aut it ttortd 

n ifl« to dttiUy iptcui qriphici chArutir to mw 

n CflUaa to ditpUy tptcitl irtpbici chtricttr ta Mt« 

VZ SpKul cbtfKttr it rttd itto htrt 

OU.AnP.VALUQ Utiqtr ulu for ttttia^ polii laplitudt 

B16,V»a »4lw ift to diqitil port 0 to itc/dic a?lit«di 

53 lUSmr.CALimTE STATIC 

|UBEie}Sa7,l],lC»tl7,0 

. aSd WTIAUZEi 

wiu Tim o 1 

TTffCl « 0 
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0030 


0CO6 




0004 
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Afltfl 


OOCi 
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AA6i 

WW* 






AAA! 


IS, 


OOW 


AAAL. 
VQvk 


0030 


M04 




0030 






0030 


0004 




0030 


0004 




MAYA 


AAA! 


20 


AAYA 
OOJO 


AAAI 




WW* 




AAYA 






MY A 






W<M 








AAAJL 


25 


AA*A 
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0030 


WW« 




0030 


AAAI 




0030 


AAA! 




0030 


0004 
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MMI 




C030 
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003C 


WW 
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Aflfti 
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VWB 




AATA 


AAAI 
WWW 
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0030 


0004 




0030 


0004 




0030 


0004 
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0030 


0004 




0030 


0004 




0030 


0004 




0047 


0004 




0047 


•004 




ooa 


OlFE 


4$ 


ooa 


om 




004t 


otrt 




004C 


OlfE 




0051 


0200 




003t 


0200 




0040 


0200 
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ooa 


0204 




ooa 


0204 




0079 


0204 




0083 


0204 




OOAO 


020A 




OOBO 


020A 



'rttd loll, v&laci tad ttt tcrtta 



At • xraxtt 

IF ACTWa ■ 

vcvo 



I AKS OCaiTint < TlKSl THEH GOSIH PO-OCW 
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Oita Sotrct Un< 



25 



30 



35 



0080 
OOCA 
00£0 
Q0r6 
0111 
0140 
CUS 
018A 
OIC 

oia 

OlOB 
OiOB 
QIOF 
01E6 



OKA 

o:oA 

020A 
020A 
020A 

o:oA 

020A 

o:oA 

020A 
020A 
020A 

o:qa 

020A 
020A 
020A 
020A 
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Ur V2.0fl 



IF Af •CHXiaD TWtMTYPa- 1: 

IF AS . THOI TWa « 2j 

If AS « TKW n?a • 3: 

IF AS « CH8H0) ♦ OatH72I WDt TTfPn « 4i 

IF Af « CWllfll ♦ CHRKBOl TK£K TTPEI « 5: 

IF AJ « CHHItOI ♦ DtRtra THOI TTFO « 6: 

IF AS « ooiitoi ♦ cxRitni vsBi vm • 7j 

IF Af > mtm m ai < cwkw) ho npa 

n TTPa fiosus ti, t2, n, t4, n, tb 

100 

Tifpa • 0 



tiffcuti <cr> 
iBcrtMftt Yiriiblt 
'dfcr«tcat viriiblt 
'up VTW kty 
'doBd vrm Uy 

« 8:' iKii 0 - I 



an SUB 

|t£H IPACC 
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^ Riiq^t Jet frinler 07-14-U 

8ti;nt btibrition l2iU:J7 

IW Ptfiofl*! CoipatK BftSlC Co«pll»f V2.00 

.11,, I, rj3WUTItt£S FW TMIS KQWli "H « 

Ti, Xtr) MKutt couwd 

If rwn < 12 TOEM TTPa • OtRnuW: 'Mtt to prUt iWtt, no KtiTO 
on ttXUl - 11 SflSUB TU, TIB, TIC, TIB 
If ft£JWI < 13 THO( TTPU « 0 

Tlfc •itirt/iUp irzp Ho* 

IF KE»rU«(i:,01 - -STARr TKEH WSUS START.INX 
Ir llDG»(n.01 • 'STOP * TH£M WSUB STOPJtt 
lCHUt(l2,0» « TOTt 
CCUJR 0,7:eOSUB OISPICKU 

START, 101 

TWI • 'STOP • 

am OQT.M: *ifl Mduli FCI 

IBCATE l7,7liCaiOR :7,a:P«UT •paiKTlHS'i 

mm 

STOP.lKti 

TWI • •START* 

CAa MT.OFFi ^^1 
LOCATE l7,7UCXaR 15.0:MIKT • *; 

B£TUU 

IF «MUliS! '/••'mrS 25,hfMKT ■R«,«t R». is -ot .p.Cia..-i.6CSUB A«at.UTU« 

If n < (Rttiott ♦ li TKOi MTO fowa 

UWTI S,10-UMin£WIU,in/2lP«IHT RWUIU,!)!' Mt FowidM 
OSUB UTtETi 'uit for i tiyhit 

FlUf • tI6KTItSTMUl),UJ(tCTM(lll»-n ♦ •ttt.CP' 
Va FU« FOR ItfUT AS III 'wt pitltra <*U «U for rM< 

ivHn ii,iioni(e,eii vud irt^iwcy 

UPOT ll,IS)(Ua,Qlt *rui aoqliUdff 

imn •l,R£IW(2,0Ji rui itroti doUr 

IKPttT II,HOW(3,01i *rui |ul« tidU 

IIPUT •l.RCKUU.Oli 'rui fiu tiit 

imn •i,raw<5,oii via wi um 

IIPUT ll,ICl(W»7iHi 'rui cwcwtr»tlo« 

IRFUT MiSDWHiini V«i 

W?UT ll,KOSUHt,Ul 'Mid irt»co«ily 

UPUT ll,REKUl(ie,lM 'mi ittriitt tfa«oa 
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0211 
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0218 




04DI 


0216 
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OSlf 
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0218 




03A9 


0218 



FOUOi 



55 



19 



0 268 237 



Q7-U*fli 

5 SttlHl hi Pfint.r ^^^^^ 
Re*,«t Chtruion ^^^^^^ ^^^^^^^^ ^.^^^ ^^.^^^ 

Offift UU Sow" uni 

n r** It* 'doAt litb diti Hit 
aZX^ C21B CIC« 11. 

,s oMt o:« 

„^;rr"""TU?oSn:=.i=m«-H^^^^^ 

S .1.8 i«mn,K*KU«i 

OUB 0218 SAVE.REA: 

04C7 0218 REMUn.ll 

If, «.! SSt a!.:«I«T -D«m...;. .U..i, R^U« it - 

070C 02« ** " " 

OJli OW ««^*" 

30 0733 0218 ^ 

0778 «2ia 

one 0211 

« one 0218 ""^"'i, %W1«.0U'. drift. oU b.cki* dirKtorr 

!'45 nil 0^ •umiiuaB- FW i*t« « II 

07M «il CPU, •tt«ii».iup- n« tnnfBt »s 12. •«t.p."<»r 

0817 one ^ 

0832 02W « 

'° !fn S aisE«2. -^.-ittdirKton 
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ATI ft 
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0220 




tOTTT It ffOtUffl All 'ctort frtAu#ACv 


0888 


0220 




uoftr it nTlfllM fill '<t&r* italftu^i 








UHITE ll,AOnJ(2,01i 'start itrobt OUy 








MITE ll.lOlKl.Olt 'start Bolti vidt^ 




0220 




mnE IUfOU(4,01i 'ttori riu \iu 


75 093F 


022C 




miTt ll,Auiui3|Vii Store till lllf 


0?&3 


0220 








C220 




•Ailt ll|nU(U«(/iil« SlOcI CQnCtflwrilian 


0984 


0220 






09IU 


0220 




mil ll,Ha(US(9,nt 'ston viscosity 


OTO 


0220 




Ktm ll,nEXurtlO,llt 'stort lorficf ttasioA 


20 09EA 


0220 






0^ 


0220 




aOSE Its 'tfoAt vitb HU lilt 


09FI 


0220 






09f 1 
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OAOS 
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PRllfT lljFiati 'sm fiUfl4«« it dtfwU «lf 


OAll 


0220 




P«HT ll,fraU)IU,lh '$4vi the <irtctery tjM is 


25 0*33 


0220 




Oils 11 


0A3C 


0220 




srniw 


0A40 


0220 






OMO 
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OASi 
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30 0A48 


0220 




IX ■ 1: 'silt wtry paiattf 


OAi; 


O220 






OUF 


0220 


SLDOf: 


LIME IKPUT 11, All rtii ant pittrro aiu itM iir 


0A7< 


0220 




0A81 


0220 




IF Al • REWtUfl) THEK «:0 UAJlCK.OCJCj 'CMMrc «»w lith dir tttry 


0M3 


0220 




n « U ♦ 1 


0AA£ 


0220 




IF tX < (RCANUnX 4 1) TKO fiOTO SLOOP: 'Utck lor doat 


OACt 


0220 


SEAACK.fiOlC: 


OAa 


0220 




OOSC 11 


oco 


0220 




irnsM 


OAOl 


0220 






0A84 


0220 


TU: 


'rflttri litb AO chiAft to exit rtnttt cilUritt 
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WIIT i3,nir; 


Otf4 


0220 




OOSC i3t ' clest cat chuMl 


OAQ 


0220 






MFt 


0220 






MFt 


0220 


Hi 


'froctss *♦* Iir 


0103 


0220 




IF lotux > s HQ itnuai 


0220 






QlOf 


0224 




oaTATiTC > nrriic • oioTm 


our 


022C 




QLfTlRC • lEVIlRE 


0821 
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IF OaTATWE ) 0,13 TKEK WLTX « I ELSE IWLTI ■ IWLU ♦ I 
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IF IXn ) 100 DQl lULTl > 100 


SO ««l 


022£ 




lCMi(SO(Ul,01 « roei(Il£Jim,0) ♦ REW(!OWt,3) 0 fWlTIi 'idd iicrtftftt 


08fF 
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IF «£HHIXKUX,01 > ltO(U(KEWX,n TKEM lCWtIt£nJ:,01 • KtttEEWX,!)! 'click ui 


0C04 
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CaCR 1S,Ij6CSU8 DlSPROtUtHnWdti 


OCIS 
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'procHt liy 


OCIO 


one 


T3: 


0C22 


02S 




IF KEKUl ) 3 TKEI tETlWl 
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Qffstt 


OUj 


Sour 


fA 0C36 


on; 




0C48 


OHE 




0C55 


073£ 




0C77 


022£ 




ocw 


o:2£ 




OCCB 


02H 




75 vvw« 


03U 




O049 


02:£ 






o:u 


T4: 


004£ 


fl22£ 




00&3 


o::£ 




0074 


0230 




in 0D74 


0230 


H: 


0079 


0230 




O&EF 


0230 




OOAO 


0230 




OOflO 


0230 


U: 


OOAS 


0230 




25 OflCS 


0230 
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0230 




O0Q6 


ono 
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0008 


0230 




O0f£ 


ono 




OEOF 
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0230 
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Vbor 


on4 




0£ft9 
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QHB 


0234 
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0234 




cm 
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0234 
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0Z38 




cm 
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0238 
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OFBJ 
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0238 




55"" 


0238 





07-14-5& 
12:26:57 

ten Ptrtontl Co«puter ^SSIZ Ca«3itflr V7.00 



CaTSTI« « K£VTIR£ - QLDT1B£ 
OlDT:a£ " KEVTWE 

IF OaTATIRE > 0.15 THS« ItULU « I CUE KlU « rJlH M 

IF RK.n > 100 THEH RULU * 100 ...... 

I? ll£«U(B£KUl.O» < R£«0tn£KU:.2I TH£H KHUtREKUl^O) « B£KmR£KU:,2Jt Ch«ck iin vilut 
CfllOR I5,l:G0SU8 01SP«£)lU:R£njfdl: at- talut 

'prociis up irroi key 
IF KQiUl HOa 4 « 0 THEH (CTIW: '!« lop ro» ilrtidy 

BIFFI « -I:60SUB iCnSWttnoKJl: 'tovt poinlcr op «« 

•arec«» do«n irro* Ity . 
IF H£m 103 4 • 5 THEM KHUM: 'J* 
OlFFl • ItSCSUB »(EmEKlI:R£luaH: 

•proce« Un irro» tty 
IF IHTdlEMUt / 4» « 0 TKOI RETURH l«H coluta ilriiiJy 

OIFH « -A:60SU8 HEiri liU:UTUSH: *«otf pointir ofl« Uft 

•procHi rijht arrs. ktr . , . ^ 

IF INTIHEXUX / 4» « 2 THEM anuRK 'ia n9»»t coIuM alrtidy 
OlFH « 6:G0SUB H£W£lW:K£TUtt: '•wri pointer oni nsht 

•IflpHt ln« iota KEtrjFi «ttU <cr> it tnttfed 
IF HEKUI > 10 THEK ilETURN 

UCATE 25,30:CaaR 3l.e;Pm«T •EKTEt «£K VALUE-pCCLOR 13,0 

rEYWFI • M 

KHILE W <> CKKftUl 

LOATE ::,47:P^Iiir 5PAa«(l5); 

LOC&n 25,47iFaUT miUF*; 

Al • 

KHILE 41 • 

U > tiKHf 

IF ACnvEl • I ABO OWaTI«£ < TIBER THEM MSU8 PEX.OCW 

IMI . OatltB) AI3 lEHtlETBUFf) > 0 TKE« aTBUFI • Unn«T8UFt,UK(ffTBUFll-n 
IF « ) OWan WCO LEKtCETBOFll < IS TKEB aYKffI - KHBUFt ♦ M 

VEXO 

IF REXUl > 3 1KEK (OTO STOKESTBtKS 

TEW • VALllETBiri) 'Ifip l« mIm 9i key* iaput 

Voudd ofl tff«p accardifti to ctip tilt ii «ttu amy 

TEH? ■ IiatTtW / UlEKU(F£KUl,3)l ♦ .5) i REKU(R£m,31 

*UU TEI1P fv uiiw and tiittu values io taac array 
IF TCTP > ICWtKEKUI,!) THEB TEliP • BESUIHEMJX,!) 
If TERP < B£»aitREWi:,2) TKEB TEKP • KERUlPaUX,!) 

Mwert ae* mI« into aeaa amy and update tcreett 

KKUdlEWn.O) ■ TOP 

LflCATE a,30:PRWT S?AC£I140I| 
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U81 
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ISA 
IISA 
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mi 
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xm 

1291 
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un 
mt 
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0:32 

0333 

0739 

933a 

9238 

0233 

0233 
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0233 

023S 
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0238 

0238 

0238 

0238 

0238 

0238 

0238 

0238 

0238 

0238 

0238 

0238 
0238 

0238 
0238 
023B 
0233 
0733 
0238 
0228 
0238 
0238 
0238 
0738 
0238 
0238 
0131 
0231 
0738 

ozn 

0731 
0238 
0738 
0231 
0238 
023A 
023A 
023A 
023A 
023A 
02:A 
023A 
023A 



StCAcStilRS: 

fl£Wtfl?«Ul,U - KHBUFI 
LOCAn :5,30:MIWT SPAC£t(40J| 
count 0i7;G05Ul OISPKEWI 

oowTiflE • Tirat ♦ 1 

PRIRT I3,TJ 
K£TUKI 



AnrcTi 



taCATE 2:,A4iPaillT •SlrUf kiy.-'j 

u - 

m\s AJ • " 
u « mv% 

VQCS 

LXATE 25,l:CaflR 15,0:PKUT SPAC£lt79)|tC0lOR 15,1 
RETUSX 



COLOR l4,0!fiflSyB OlSPnlW 

noux « Haul • DtFn 

IF HOtUI • 11 T«n ROtUI • 10 
IF KWJI > 15 tKC( ALMUI • 13 
COU» 0,7:G0SUB 01SFnEI«:«TW« 



point to ind hiqhli^At am it>« 



•cUKC to fK»o4 »crff« 4«< <i«»Uy •HJJffi 
SCROT 0,0,Ul:COLO« 7,0taStLOaTE 10,2fl!MlfT MiltiUlxioq f^a DiifUT*l 
LCCAlt l2,X3tPRl«T •Pltiu Uil.,.' 

•iBilitlia »«riA5lM 

'itiUUltt flotttr »• chiMtl 
OPQI •CfilUt2400,l,i,2* AS H 

wwi H,Mitra,£fvi,iri 

MattiaUxt 4i«iUl fort 
SOS - 4 

CAU 01fiITM..0UT(5atX) 
SOS ■ 0 

CAa iifinAuouTtsotui 
sen « 4 

eta jifinw-.twusoti) 

CAU Sn.D0T.II0TH(5) *in wduli fCl 



>alu rtitt llM to Mt itpUtddf to OV, 
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Rugvt at MntK 07-14-U 
Rngmt CalitrUioi ll:24i57 

IW Ptrtonil CfliputK lASlC Co»9ilir V2.M 

tavtt Line 

CnT01£ ARRflATft 
FCJ 11«0 TO 17 

KftJ KSUini,OI,R£HUnil,lh 

var IX 

•«t itUM ri*9tnt viktt 

IBDIO^OI « WO: •friquincy 
fEOm.tJ) - 0: -upUludi 

ROaiH,flI • <7fl: Ti" tin 

©01(3,01 • 070: 

ICWJU,0»«Oi 

KD8J{7,0» • Oi 'cw«BtrUiM 

KEKU{8,01 • 0: 'deflHly 

ICW19,01.0I -tiiccutT 
|CHI(10,01 - 0! ^w^** 

OJ.Wf.ViUin « 0 *intiU mUc of 0 wm 

•d».«9t Kti.f dUpUrti «MW ta nf»t fCfKfl to dri. ud di«pUy parwtin 
SOra 0,0,0,1:05 

CanH l3iUXATE l,3::PRU: •««aT CALlBMIf; 

count Y 

^'^ udn 3,ItPRIKT •PMLOCATt 5,I:f(tm TiiUCATE 'JM 
1^ I 

Sclu MifRW TiiLOWTE U2B:PRIia M-.tUaTC I,«:«Iia "r-pU^ATE I.SO:mKT T; 

sen I 

RESTORE T£IU 
m 1*1 TO 12 

REU ltt,a,ia:UICATE RI,a:P«l«T DWOttJj 

cn 1 

'priftt thTK bcidiflfv 4&d Isitructioaf 
- C0US10,0 

toaTE 4,7:fRlia -OMP PMttmRTl 
LOCATE 4,39jPflIllT •REAKHT fAWWETEAS* 
LOCATE 4,71:«UT •CflMAKDS'i 

t.tflrtTE 51 :0iPRIin •Ikt •::COU» l5:fRin CKMa7nCffll(n)|CKW(2ll| 



Wfttt* 






02:c 




023C 




0Z3C 


i:c3 


023: 


12£S 


e73C 


1311 


02X 


75 137C 


023; 


I38f 


073C 


138F 


073C 




023: 




023C 


i:a8 


az3C 


20 13C4 


0Z3C 


t3C0 


023C 


13FC 


023: 


1418 


023: 


I43i 


023: 


1434 


023: 


25 1452 


073: 


146C 


023C 


14BA 


023: 


t4A6 


023C 


14C2 


023C 


I4C2 


023: 


30 14CY 


0Z3C 


I4C1 


023E 


14CY 


023E 


UW 


023E 


14C4 


023E 


14£6 


0Z3£ 




e23C 


ISOE 


e23C 


tsit 


023E 


l5Af 


023E 


1S8A 


023E 


^ 1594 


0Z3E 


^ 1401 


023E 


U24 


«23E 


14a 


023E 


1437 


n3£ 


144A 


0244 


1483 


f2M 


^ 1483 


02M 


1483 


0244 


un 


0244 


UAl 


0344 


14a 


02« 


50 


0244 


UDF 


0244 


1729 


0244 


174S 


0244 


178E 


0244 


*7tl2 


0244 


55 «1* 


{r244 
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5 



70 



T5 



20 



kt*t^i iti Pfinttr 
Ritgtflt Cilibrttian 

Mfnt Uti Sourct Lint 



07-14-84 

ISn PK»ofl»l Cfl«e«ttr BASIC Cwpilir V2.M 



25 



30 



35 



1114 
lltl 

IBll 
1811 
1823 
1821 
1831 
184] 
1841 
1841 
1154 
18U 
183A 

1873 



02M 
0244 
0244 
02M 
02M 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 



'dliplir IS Miu choices ii jtU^m 

um 14,0 

FW !t»Jl • 0 TO 17 

SQSUt OtSPREW 

icn tacjt 

•«t <or rta^wt n«f wd liqhlijht it 
KXm <.4tC0UK 0,7 

sonx 0,0,0,0 



40 



45 



50 



55 
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5 



. P*fi£ W 

Rftqnt at PriBltr 07-14-94 

Riigm CaUbritict 12:24:^ 

'° Offset Oita SowceLiof 

SI ^"''"^"^LCyTE (R£m0 6)•^7,lIl^tlmI/6M28♦2J♦l3•ll^TtK3aJl/W> 

IBFl 0244 If ISKW > 5 IHB 60TO SHCKSTRIXS:" M nlai ta iupUy 

1901 02M ICCATt (HENUI TOfi 61«2»7,HO(U(R£JWI,4» 

1135 0244 «W BSIMS feajttKKlIl,U;Re(U(Km,OI; 

1,44 IF IffWJX > 2 TH£K RHURM 

0244 tW KQiUlU SCSU8 SCT.FREQ, Sn.ftff, BH.KUr 

l«4 0244 RHURK 

„ t98A 0244 SiaS^RlHS: 

19HF 0244 IF H0in > 10 THW ROffiK 

l«£ 0244 LfiCATE (REHUl M» 4I«2*7,48 

im 0244 PRWT 

19CT 0244 UlCATE (HEMUl fOO 4J»2*7,48 

I9n 0244 PfllKl REKUIlK£»Jl,n 

25 IA02 0244 RETWK 

IA04 0244 

IM4 0244 SET.niEQ: 

lAOB 02M TOT « REKU(O.OI 

IA24 0244 CAU Sn.DOT.RATtlTtKPh li ioduli fCI 

IflM 0244 tax « :-irUTERf^30O)/K0OI 

30 1A57 0244 If L£DX < t THW UOl • 0 

IA49 0244 saa.4* (L£Ktn)t '..t US Utmitf 

IA89 C:U CAU BISITAl.OUTlSCRlJi '»« "I 

IA99 0244 RHTO 

tA90 0244 

l&9fl &?44 StT.ARPl 

35 tAA2 0244 SCSI • ClMTtttHUtHEKUI.OI • ZZ t 1501: 'wmt tolts lo bisirr ftw6«r 

l(X8 0244 IF SCT^ ■ WJ.AV.VAUt: !«» I£TUKK 

lUC 0244 TWl « SCRI - OU.«P.Vil«n: 'cilcaUli delta 

l«8 0248 OLfl.ARP.VALUa • SCSI: 'BftUti oU tiUi to CtBTtnt tUat 

lAEF 0243 0I6«VAa « 4 

e2u IF ran < o ^m ou.vau • 3 

40 1808 e24A ran « AeSdEBPtl 

tSlS 024A fW H « I TO TWl 

.|22 024C SCRI • OIC.VALl * l32«USI) 

Ijjr 024C CAa 0I5ITAt,QUT(Saan *p«l« hlqhtr or Io.fr 

184F 024C sew • 4 ♦ (52 « lEKI 

1,4F I24C C*a OWnAL-OUTiSCRIIi 'wt port t« •ortAl 

45 II7F C24C «T II 

mt 024C * KTWB 



189) 024C 

1895 024C SCT.DOATi 

lf9A 024C TW-_«£WJ2,0I 
1884 



024C CAa Sn.STIlOILBQiiT(TOT»i 'U •oddt PCI 



50,|C4 024C KTORM 
leCA 024: 
18CA 024C R£R 



55 



26 



PA6C n 

Rtiqtft Jit hinUr 07-H-« 

° IJH PtrtaAil Cfl»putir lASlC CcipiUf V2,00 

04<m 8*ti Sourci Lini 
IjCft -i"" DATA USED BY THIS MWU M.u 



iSCA 024C 

° « C DATA •1U«'/%0,0,0,0 

uo? 02« wTA-omitTy;.o.o.oo 

.L£i 02<C WTA •VitttHltY'/*,0,0,0.0 

m 024C WTA -SurUct T.«i«N'%0,0,0,C 

« len 024C DATA "/•,«,o,o,o 

18E7 024C MTA 'START'/ ',0,6. 0.0 

IfiE^ nC WTA •LOAfl*/*|0,0,0,0 

K1 02C DATA 'SAVf.",0,0,0.0 

m 024C DATA •an'.",o,o,o.o 

U€F 024C WTA -.-,0,0,0,0 

30 m 02« OATA -,-,0,0.0,0 
im 024C 

Jin 02« taeuj 

IIFI 024C 8ATA 3,1,211 
IBfA 024C 

UFC 024C 8ATA 5,41,210 

35 i8F£ 02« DATA3,W,J9J 
ICOO 024C 0A7»3,l,m 
IC02 02« DATA 3,3,204 

IC04 02« WTA 3,49,204 

C04 024C MTA3,W,m 
ICCI 024C WTAH,l,m 
^ ICOA Wt WTAl1,n,20fl 

WC 024C WtAl1,4f,20« 
m «tt 0ATAI1,W,217 
ICIO W4C 

ICIO 024C 00 SUI 
1C17 024C 
^5 IC17 W4C 
VXM- C24C 



3042A lytt* AttiiaU 
43160 tiin FfM 

0 Uroln? EfTcrUl 
0 S««rf Error(»J 
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ReEqwt Jet Printer JJ^^j.,! 

Pattern Entry/hadification I0:4t:l3 

Offset Data Source Line m Personal C.puter 9AS1C Compiler V2.00 

0030 OOOi R£« STnL£:-P.eacent Jet Printer' SSUBTITLE: Tattern Entry/r.adil 

0030 0004 'mU - -PftTEHr Pattern creation, lodi^ication. and filing 

0030 OQ0& 

0030 OOOi 'Ain'riCR - N. A. Enevold 

003C 00C6 

0030 O006 -CCPTHISHT (CI 1^85 AB80U LABORATORIES 

0030 0004 

0030 M04 -jmSlOII - 1.2 03-lO-Bi NAE Reiov. Bouse inputs 

fl030 O0O4 • i.j 02-20-Bi KfiE Add BO pittern liiit to save 

0030 MW • 1.0 01-13-84 HA£ Creition Initial cod* 

0030 «04 -STSTEN - Hii* code can only be to.pilEd by the BASCOH 

0033 0004 • COtflLER, it «ill not run- under the IHTEftPRETER.. 

0030 0004 

0030 0004 "BESailPTIOM: . . 

0030 0004 • Tt,is .odd. allo« the user to LOM, SAVE. DlRectory. D 

0030 .0004 • enter repeit count and other para.eters <or » p.ttero t^ 
0 be printed* 

0030 0004 • The lo.-re>olution qrapbics .ode is selected and » lenu 

is displayed . 

0030 0004 • across the botto. ol the screen. Usmq irro. keys 

0030 0004 • point to the action to be taken and then iavoke that ac 

tion vitb the 

0030 0O04 • Enter key. 1» the WW .Ode. another tenu is 
0030 0004 • displayed .hich »llo« the ««r to select *ro. LINE. RE 
CTangle, 

0O3O 0004 • Solid RECTwqle, or ClRCle pattern ele.ents. 



0030 0004 

OOW 0004 'OATft filCTIOMARY . , . 

!o30 0004 • SCHDATICAS) 51 Ra. (Ele.ents) by 4 Col«.« array f 

or storinq pattern eletents 
0030 0004 • CURSORZWJ Stora,e «or cursor qraphics .ccn 

MM 0004 • ELHUM Count o< nu.h.r o* .l..«t» In a patt 

n«Tft Ofloi ^' n n Current lotatioa ol qrapMcs cursor 

Z Z ' Sid value 01 on. dot space on the screen 

oo« Utation to print instmction. 

Z Z ' S Stcraq. lor .inql. key-strokes or inp 

0030 0004 «hich .enu is b.io, displayed (1 or 2 

0030 0004 • nOl Pointer to -hich .enu it., is biqhli, 

0030 0004 REPEAT! Huab.r of ti.es pattern is to be repe 

0030 0004 '""''m'm I and r a«s distance b.t«en th. pn 
otino o4 repeated patterns • . . 

0030 OOOi • ROliSPCOLSP Re and Col «« spacing lor pr in tinq . 

oUiplc sets of patterns 
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Reagent Jet Printer [f^ J 

Pattera Lntry/flodifi cation ^Z"^™ 

On«t Diti Source Line IBH Personal Coiputtr BftSlC Coipiler V2,00 

00:0 CCOA ' ?min - Huther of pAtterns stored in 

the pattern dirKtory PATDIR.WP 

0030 0004 ' OROn DCQLl Ro» *nd Coluin location to dispUy di 

fKtory entrys 

0030 OOOi • HAKE* f^^ttern nati to be LOADed or SAVEd to 
directory 

0030 OOOi • IX 31 Counters used to LOAD or SAVE the ele 
Mnt data (roi/to pattern data file 

0030 OOOi ' FILE* «^ P»^t«"* 

0030 OOOi • TOTX Which type ol elteent is being draw. 
1 « Uac 2 ■ Rectangle 

003O OOOi 

3 « Solid Rectangle 4 ■ Circle 

0030 OOOi ' FlASl Saif as TERPI above 

0030 OOOi • STARTJlSSi ENOnSSi Ressage display for startpoint and en 

dpoint of eleient entry 

III yix Starting cursor position for 



clHeot being drun 

BIX ' 0«lta I and Y values used to 

rt-positlon cursor after arrow key 

' HAIITin highest nuibcr itet in th 



0030 OOOi 
0030 OOOi 

0030 OOOi 

e current eenu display 
0030 OOOi • IS IE Starting aad ending I position ol tht 

■ena highlighting blue boi , . . ^ i 

0030 OOOi • RADIUS! The calculated radius of .a cl 

rdc to be displayed 
0030 OOOi m SPASE 
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Rwqent Jet Printer 

Pattern Entry/Radilication JS^X 

OHset Data Source Line IBH Personal CoMuter BASIC Cocpiler V2.00 

0030 0006 SUB PATEKTRY STATIC 

0047 0006 

0047 OOOi «OTH 40:SC?15H l:CLS 

OOSF 0006 OIH SCKDATZ(S0,5) .CURSORK?) ,«ESUi(&l 

0060 029A aNUni = OiXl=Ojn=0:GR10 = 0.005 

007F 02fi4 

007F 02A4 LIKE 10,0)-(6,61 ,,8 

OOAl 02A4 LIKE 10,31-(6,3),,B 

00C5 02A4 LINE (3,01-(3,6)„B 

0OE9 02fi4 PRESn (3,31 

00F5 02A4 en (0,01-i6,61, CURSOR! 

0116 02A4 CIS 

0110 02A4 

OUD 02A4 LIKE {0,OJ-(319,1901 ,,B 

0140 02A4 

0140 02A4 RESTORE INSTRUC 

0147 02A4 FOR 1«1 TD 4 

0131 02A4 READ ROMl.CQLl^AS 

0U4 02AC LOCATE flOrt,COLI:PRIKT A<i 

OlSO 02AC HEH I 

019B 0260 

019B 02BO FIRST: 

OlAO 02B0 KEKUWIK « 1 

OlAA 02S4 60SUB SUBKENU 

OIBO C2B4 OH ITEH M 60TO PiTOlR, PATLOAD, PATSAVE, PATBRAK, R£? 

EAT, PATHT 

OlCO 02B8 SOTO FIRST 
0100 0268 

OlDO 02BB REPEAT: 

0105 02B8 GOSUB ITEKBOXERASE: 'erase bUe box around DIR 

OioB C2B8 LOCATE 2S,1:PRIMT SPACEi(391; 'erase «na line 

01F8 02B8 LOCATE 25.1:INPUT;'Enter Repeat Count '.REPEAU 

0218 02BA LOCATE IS.UPRIHT £?AC£t(39J; 'erase lenu line 

0235 02BA LOCATE 25,UlKPUT;*£Rter X Axis OHset '^lOFf 

0235 02BE LOCATE 25,lsPRlKT SPACE«139)| 'erase eena lint 

0272 02BE LOCATE 25, UIKPUTj 'Enter Y Aus Offset '.YOFF 

0292 02C2 BOTO FIRST 

0296 02C2 PATEITi 

029B 02C2 VIOTH BO:SCKED( 0:aS 

02B2 02C2 EllT SUB 

02Bi 02C2 RE« IPASE 
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Pattern 



Jet Printer 
Entry/nodi Hcition 



Offset Dita 



o:b& 

02BB 
02C1 
02DE 



o:c7 
02c: 

02C2 
02c: 



OIcF 02C2 



0301 
032& 
0330 
0330 
033S 
0344 
03SB 
038; 
03A9 
03A9 

03C3 
03C9 

030C 
03t)C 
0401 
0401 
0406 

0422 
0429 

044C 
044C 
0459 
0475 
0479 
0479 
047E 
0485 
0469 
0489 



02C4 
02C4 



02C6 
02CB 



Source Line 
PATDIR 



PASE 4 
07-05-Bi 
10:46:13 

IBK Personal Cosputer BASIC Cocpiler V2.00 



file 



ectory 



02C4 
02C4 
02C4 

02C4 OISLOOP 

02C4 

02C4 

02C4 

02C4 

02C4 

02C4 



'list directory of patterns 
53SUB ITEH^OIERASE: 'erase blue boi around OIR 
LOCATE :5,l:PflIHT £PACEn391: 'erase lenu line 
OPEH 'PATBIH.RJP* FOR INPUT AS II: 'open directory 

INPUT II, PATMUni; 'read outber of patterns in dir 

'erase graphics tablet 
*set counter 



LIKE (l,lI-(318,Ifl9J,0,BFj 
1 < 0: 



'l , 1 4 1; 'set 4or next value 

IF I > PATMUW THEM SOTO DIREXIT: 'test for done 

IF lKT((l-i)/44l 0 (I-U/44 THEM SOTO SHflHHEXT 
IF IKT((M)/44I < I THEK SOTO SHOWKEXT 

LOCATE 25,l:PflIHT 'nore to Display. Continue ? (Y or H) 

eOSUB CORLQOP: 'uit for Y or K response 

IF Al « 'N' THEK GOTO OIREXIT: 'if K then don't contin 



uc 



02C4 
02C4 
02C4 

02C4 . SHOMKEIT: 
02C4' 



LIKE (l,l)-{31B,lfi9l,0,BF: 'erase graphics tablet 
0R0« « ((I - n HOO 221 ♦ 2: 'calculate rw fcr disp 



lay 



DCOLI « 4: coluM to 4 

IF (II - n HOD 44) > 21 THEH OCHI « 23: 'reset colutn 
if necessary 

02Cfl 

02cg 

02C8 

02ca 

02C6 

02C8 OIREXIT; 
02C8 CLOSE U: 

02C8 GOTO FIRST 

02Cfi 

02C8 RER fPABE 



LIKE IKPUT II, AS: 'read teit na«e froi directory 
LOCATE OROUI,OCnLl:PRlKT Al| 'PRIHT MARE 
GOTO OISLOOP 



'teriiaate access to PATDIR.RJP 
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tern 



Reaqenl Jet Printsr 07-05-c3 
Pattern Entn/ffodificaticn 10:46:U 

Offset hiU Scree Line IB^ Perscnal Co.oater BASIC Cos?Uer V2.00 

0*89 0IC2 fA'LSiS: , ^, . . 

17k on SOSaB ITEKcOlERASE: 'erase blue «ox iround OIR 

««' oSb IRPUT Sl.PATHUHl: Teid nu.ber o< pattern in 4ir 

;;;; , ^JSUB EETNABE: -Prcpt for and input pattern n 

. 0«D 02C3 LIKE (1.1)-(318,18?),<1,SF: ^^'P^ics tablet 

0AE2 07Ca 

04K oica SOSUB SEARCH 

IF IK (PATHUM M) THEH GOTO FOUND 
II" UKflTE I0.U-(l£N(KAnEJl/2):PRIKT HAREt;' not Fcund 5 

05:1 0:C£ LOCATE 12,1<:PRIHT 'Strike Any Key* 

0S4B fl2C£ SOSUB * 

0551 02C£ M10 FIRST 

0553 02CE 

057E 0^2 OPEK FILES FOR INPUT ftS 11: 'set pUtern d»t* file 

"*^KPUT U,£LKUni; 'rui nuiber of eleients in pit 

INPUT lltSRID: *rtii Vi^ si" 

INPUT ll,REP£ATI: 'read reoeit count 
INPUT II,10FFj > o^^"^ 

INPUT IIJOFF: 'r"d T ^^'^ "^"^ 

FOR 11 - 0 TO aKURI - I 
FOR n = 0 TO 5 

INPUT t:,3:-:A;:(i:,Jl):'reid file into screen 

KEIT JI 
NHIT II 

CLOSE III "ith dAti file 

OPEN •PATOEF.RJP* FOR OUTPUT AS II 
PRINT •1,FIL£I: ^^1"*" 

PRINT ll,NA«£l: the directory 04. 

t as «ell 

aosE n 

GOTO REORAH 

LIKE IKPUT 11, At: 'read next pattern na.e fro. di 
[ IF A* « KAnEI THEN GOTO SEARCH.EMO: 'coapare naie • 
ith dir* entry 

IJ n \ <PMNUni 4 I) THEN GOTO SLOCFi 'check for donf 
SEARCH.EHQ: 



OSSF 


0232 


05AI 


02S2 


05S3 


0202 


05C3 


0202 


0507 


02D2 


05E9 


0202 


05E9 


0222 


05F7 


0204 


05FD 


0254 




02C6 


0&31 


0206 


0643 


0206 


064A 


' 0206 


064A 


0206 


065C 


P2M 


06&C 


0206 


067C 


0206 


0&B3 


0206 


0&S3 


O206 


0687 


0206 


06S7 


02&6 


06BC 


0206 


0693 


02D6 


069S 


02C6 


06AS 


0206 


0686 


0206 


06C1 


0206 


0604 


0206 



array 
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R«gtnl Jet Frinter ^^^^^^g^ 
Patttm tr.try/KciificatiM iO'4Atl3 

. Offset UU Scarce Line lE!^ Personal Cotouttr BASIC CotoiUr V2.00 

06D9 OTi CLD2E lU *n<it found so close file and disoUy «e 

ssaqe 

06E0 0134 fcnUW 
06£^ 07Dq 

0&E4 07C6 ^En JPfiSE 
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7 

REaqent Jet Printer o7-fl5-3S 
Pattern Entry/rtailif ication I0:46:l3 
onset Data Source Line li. Personal Co.puter 6M1C Couiler V2.00 

''"*'%OS-dB nE«OU?.;Sc: -.rase blue b« around DIR 
mi IF ELNUM - 0 THEN GOTO FIRST! 'no el e.ents in pattern 

S 02D6 O^ffl -PATOIR-Mf «R AS II 

A-iftc ftinjL INPUT lt,PATKUKl 

572 1 02E6 TotI ( 30 THEN GOTO SAV-E.FftT, -dirKtory ^ 

it BO patterns 

S:! Z S'k.FRIHTSPACH.mi,: '.ase .otto. I 

0754 0204 LOCATE 25.1:PR1HT -Oiredory ii full (80 patterni .a.l' 

fl7iE 0206 ' SOSUB AKYICEY'.GOTO FIRST 
Jno Z ''""'"""SUB GETNA«E: 'prcpt lor and ,.t pattern na« 

niTALxTKEKS0TOAD0.HE«.PATTERK 
^'^ iTL' (1 n-ilia 189) 0,£F: '«r«e graphics tablet 

z . tssT;';i;n«;w2MPRiHTH^^^^^ 

07Fi 0204 ' • LOCATE l2.15:fRl«T 'Replace it?' 

OBOE 02D4 FATMmi«II 

0815 02D4 *«••* 

081F 0204 WILE At » " 

082E 0204 

S 5fot !f « ' =" " • SAVE.FATTERM 

0844 0204 GOTO FIRST 

0648 0204 

To Z '"'-''"'Z^.m.^.V: -delete old .ackup directory 

51" •M"!"."-?' « -""IR-OLD-: -save old dir.c 
tory 

«aic MBi ■ OPEK •FATOIR.OLO' FOR WPUT AS II 

F ?2^ TpEN .PAT01R.Wf FCR C-JTfUT AS 12: "..t up n.. d,r 

oSSl 0204 IKfUT ll.FATWni: "re.* nu.ber o« d»r entries 

0M5 0204 fMmi ' FATKUK: ♦ I! -increwe by I 

oaac 0204 WITE n.PATHUm: -hv. in «e« directory 

ftorn niHi FOR 1=1 TO PATHTO - 1 

flSS SSa like IKPUT n,A»: Ve.d e^try «ro. old dir 

- oSn oSa WIRT I2,AI: -.rite entry in ne. directory 

Zi ISt\2,!(AH£Ii -.rite ne. entry to ne« directo 

0«£ 020ft ' ttCSE lUCLOSE 12: 'done «th directory 

5S5 OMR ^'"^'^"mt . RIGHTIl5TfiltP6TWr.I»,LEHtSTRItPATKU«ll)-n ♦ 'P 
OPEM FILEJ FOR OUTPUT A3 II: 'create nen pattern dat 



094S 02DA 



* «iiTc It asUBI: 'slw* ""••''S'' ele»eflt$ 

0,77 02BA 'Il - -store, rid dieensioo 

S J^a :« "r.: -store 'repeat count 

miT I IOFF: -store X a,i. omet lor repeat 



C 268.2^7 



PftGE B 

Riagint Ut printer _ 07-05-E6 

Pitttrn £f.try/ftceificiticn 10jU:13 

c-x'ce tint Personil Coaputer BASIC Cotpiler V2.00 

tlJCFFs 'store y aiis offset tcr repial 

fOR II ' 0 TO awm - I 

FCR n = 0 TO 5 

mil tl,SC?lOAniU,«): '-rite screen 4 

rriY to Hit 

rax Ji 

au3£ »1: 

OPtR •PfiTO£F,WP' FOX OUTPUT AS H 
PRW II^FIUI: -"v* ''''' 

PRIKT ll,K«^£l: '"ve the directory o« 

aosE II 

BOTQ FIHST 

m «PP£E 



OHset 




09B"? 






02;A 


0907 


020C 


090D 


02:c 


OAOO 




QAIO 


ozrc 


oAn 


02I1C 




02u: 


oa:3 


02CC 


0A4S 


rac 


OASB 


02SC 


0Ai2 


020C 


0A&6 


mz 



35 



. : , 0 2fei8 23V 



?.245c-.; Jat Frir.Uf ^^^^ 

Pattern tntrvAlodificoticn 07-05-55 

I0:46:i: 

Oh'se: Data Source Line Ic-I Personal Coiputer BASIC CoiiDiler V2.00 

OAio 0:3: PATCftASi: 

0A7S OlDC LIK£ (J ,1 J-(313, J891 ,0,BF: 'Erase qrapnics tablet 

0AC& o:vC 

0A9fc OiTC )iHlTEL: 

0A?E 02IC SESUHUn = 2 

0AA5 02DC ^ ECS'JB £U£5£KU 

oa;b cSe ck itih m mtq alike, rect, srect, acircle, redraw, b 

OA:a 02:: S0T3 KEITEL 

OACB 02DC 

OACB 02EC BAOOff: 

OADO 021c ITEflBOlERASE 

OADft 02DC WTO FIRST 

OAOA 02CC 

OAOA 02DC ALIKE: 

OAOF 02DC TtfiPl = I 

Ofi£& o::£ STARTflSSJ = 'STARTIKS ENOPOIKT- 

OAFO 02E2 aOnSSf = 'ENOIHS EKO?OI«T ' 

OAFA C2a BOTO EHTERELEREKT 

CAFE 02U 

OAFE 02E& 8£nt 

OB03 02E6 TERPI « 2 

080A 02E& MTO RECTHSG 

OBOE 02£6 

OBCE C2£4 Soiai 

0B13 OZEi TEIPl = 3 

OBJ A 02E6 RECTK35: 

OBIF 02Ea STARTnSS; = •STARTJSo CCRKER' 

0B2? 02E& EKC'Sa = •ENOIJiS CORKER * 

0B33 OTEh OTO EKTESaEHEKT 

0BJ7 02E& 

0B37 0:£i AC;RaE: 

0B3C CtEi IWl = * 

OBC 02E6 STARlaSSJ - 'CEMTER OF CIRCLE' 

0B4& 02EA EJ(-»SSS « •POIKT C« CIRaE • 

0ES7 02C6 

0B57 02E6 EXTERcLEKEKT: 

0B5C 02Efi W3UB ITERSQXERASE 

mi 02Ei n.A£i«o 

02EB lOCATE 25,l:PRm SPAC£tl39)j 

Qggj 02£B LOCATE 25,1:PRU(T STARTRSSt; 

06A0 02EB 60SU3 DISPCURSOR 

0BA& 02E8 FIKOSTART: 

OBAB 02E8 SQ^^ ""^^^EACT 

OfiS* 02EB IF W = 

0BC8 02E8 IP « = CHRIIUI THEN 60T0 SHSTART 

OBCF 02EB 60SUB CURSQRKO^t 

0BE3 0:£9 WTO F1K0START 

OBEE 02EB AJORTj _ 

06ED 02E8 SOSUB FLACECURSOR 

0BF3 02EB 60T0 REXTEL 

OBH 02EB 
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fteioent iet Printer ^^f"" f 

Pittern Entry/Hcdification iomI:13 

Source Lir.e ?erwnil Cotouter BASIC CofipiUr V2.00 

ErSTAST: 

P.Aol « TEn?l:ni = U:Yi: « n 
Ir FUoZ = 4 THEN PSET {IIM,Y1+4I 

FIKDEKO: 

£u3UB rOUSEACT 

IF as ' CHR$(271 TnEH 60TQ CK*C£L£L 
IF « = CH«J(13) THEK 60TQ SAVEa 
8QSUB Ci:HSCRrJ3VE 
6QTQ FINOEKO 
CASCaEL: 

eaStJB PLACECUKSQR 
ON FLASI GUSUB ERl, ER2. ER3, ERA 
FlftSI » 0 
80TO NEIXa 

SAVEa: 

6QSUB PIACECURSOR 

IF FUSX = < THEN CIRCLE (m*4,YlI*<l ,SaR(ai-in)*2+< 

60SUB CORRECT 
IF AI*'K* THEM GOTO «:Rft« 

STOREas 

scw)ATX(a»iunZtO) « flasi 

SCKCATKELKUKlin « IM 
SCH0ATIia»IUWl,2) « ni 

sck:ati(£lhuhi,:i * xi 

SCKDATI(ELVJKI,41 « 
SCK0ATX(EL»rjni,5) » 3 
aKURX « ELMUnX ♦ \ 
PcASX « 0 
eOTO KEXTEL 
F£n f?A6£ 



OHset 


Data 


0Br7 


02E8 


OBFC 


OIEB 


0C16 


02EB 


0C2B 


OxEC 


0C55 


02EC 


OCSA 


02EC 


OC^O 


02EC 


0C77 


02EC 


OCBE 


C2EC 


0C94 


02EC 


0C97 


02EC 


OC?C 


02EC 


0CA2 


02EC 


0CB3 


o:ec 


OCSA 


02EC 


OCBE 


02EC 


0CC3 


02EC 


0CC9 


02EC 


0032 


02EC 


0038 


o:ec 


0C4B 


o:£C 


0030 


02EC 


OOAA 


02EC 


ooes 


02ec 


OOAO 


02EC 


OOBB 


02EC 


ODD& 


02EC 


OOEF 


02EC 


OOFB 


02EC 


ODFF 


02EC 


0E03 


02EC 
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FAcE 11 
07-O5-S6 
lC:^6:i3 

OHset Dita Scarce Line l^^ Personal Cacouter SA5IC Coftoiler V2.00 



Keiqent Jet Printer 
Pattern Entry/RociHcation 



0E03 02tC AiuHAU; 

0£08 C;£C 5C3uB iTEflSOlESASE 

OEOE 02EC UHE(MI-t3ia,lB91,0,BF 

0E:3 02EC IP ^i-NUni « 0 THEN SOTO KEUa 

0E42 02EC 

02EC FC? 1=0 TO ELNUnVl 

^£53 02F0 ON SCKDAailtO) GQSUB RDl, R02, !iD3, R04 

OEBl 02F0 HEH I 

0E9C 02F0 NEXTEL 

OEAO O2F0 

OEAO 02F0 Sub-routines called by iiin lodule 4»hh4» 

OEAO o:fc 

OEAO 02F0 SUEKENU: 

0EA5 02F0 

0EA5 O2F0 LOCATE 25,1:PR1NT SPACES (39); 

CEC2 O2F0 ON flEKUKUn 60SU8 HENUl, nEKU2 

OEDl 02F0 

OEDl 02F0 FOR 1=0 TO & 

OEBB 02F0 R£« BENUSIl) 

0£F2 02FO LOCATE 25, lli6l*2:FRIHT REHUJdl; 

0F:B 02FC KEIT I 

0F4& O2F0 

0F46 O2F0 READ WIITEM 

0F4D 02F4 ITEH « 0 

0F57 02F4 

0F37 02F4 KEHITEJI: 

0F3C 02F4 SOSUB HEilTESBOI 

0F62 02F4 

0F62 02F4 KEITITEH: 

0F67 02F4 60SUB ITL-.SEARCH 



OF&O 



02F4 IF fil « TrEH RETURN: * ITEK has correct value 

JfsI 02F4 IF LD((An < 2 TKEK aEEP:50TO KclTITEfl 

OF^A 02F4 IF ASC(R:Ct:A«,M) I « 75 THEM BSTO LEFTAR 

0FB6 02F4 IF ASCmi0t(AJ,2,l)) « 77 THEN GOTO RIGHTAR 

mi 02F4 BE£P:EOT0 HElTITEW 

0F09 02F4 

0F09 02F4 LEFTAR: 

OFBE 02F4 IF ITtn = 0 THEM GOTO KEXTITEfl 

OFE£ 02F4 6Q5UB ITEKSOXERASE 

0FF4 «F4 ITEn « ITEII - I 

1003 02F4 GOTO REKITEH 

1007 02F4 

1007 02F4 RlGHTARt 

lOOC 02F4 IF ITEn • RAXlTEH THLV GOTO kElTITEH . 

lOlF 02F4 60SUB ITEnSOIERASE 

1015 02F4 ITEn » ITER ♦ I 

1034 02F4 GOTO KE«1TE« 

103B 02F4 

1038 02F4 KEKUl: 

1030 02F4 RESTORE m 

.1044 02F4 RETURN 

1048 02F4 

1048 02F4 KEKII2: 

t04D 02F4 RESTORE RN2 



38 



0 2o8-237 



Resqent lit Printer ^^^E 12 

Pitterr £Atr>/\^02ir icition 07-05-Gi 

10:U:13 

Or^set Citi ::jrcs liv.t . IS^ Personal Coaouter SASIC Cospiler V2,00 

OZ-A R£Ti:SH 

1058 02P^ 

1058 02f4 ITI/iEARCH: 

1050 02-4 A$ « IKKEYJ:IF AJ <> " TKEX RETURK 

I07ft am GOTO HEnSEAflCH 

1070 02F4 RTrURX 

1091 02r4 

1081 tan KtMlTEKSOIS 

10B& 02F4 XS « (ITEnMSJ ♦ 7 

109C 0:F3 U « (Htnuei ♦ 8 ♦ LEK(H£NUI(ITEKn*8 

1009 02ri: LIKE <lS,l9n-(IEtl991, 1,8 

1 101 OTTC RETUPJl 

1105 02fC 

1105 02FC ITiriOXERASE: 

llOA 02;C LIKE (lS,l91)-lIE,mi,0,B 

1131 02Ft RETURH 

1135 02FC 

1135 02FC PIACECURSOR: 

n3A 02FC PUT IX:+1,YI*U,CU«CRI 

1157 02fC RETURN 
USB 02FC 

1158 02FC KQUSEACT: 

1160 OOT 60SUB AKYKEY 

116& 02FC OU » 0 : OYl « 0 

1174 0300 IF Af « CHRKO) ♦ CH?It72) THEM OYI « -ItRETURN 
IF At * CHRSCO) ♦ C«U(60I THEM OYl « hRHURN 

03C0 IF M « CHRKOl ♦ Ch;h77) THEN Ox: « l:fiETUR« 

IJEF 03W IF At « CHRKO) ♦ CrSI(751 THEH 0X1 « -URHURK 

1218 C300 IF At « 'S' THEH OYl • -20:RETURK 

J 232 0:00 IF At. = '2* THcM Oil = 20: RETURN 

I2\t 0300 IF At - T THEN Oi: » -20;RnURN 

1266 0300 IF At « •6' THEK OX; = 20:RnURH 

1280 0300 IF At « CHRtl271 THEH RETURH 

1297 0300 IF At « CHRt(l3J THEH RETURH 

12A£ 0300 GOTO N0U5EACT 

1:B2 0300 

12B2 0300 Ci:;s:AA3VE: 

12fi7 0300 6QSU8 PLACECUR50R 

12B0 0300 OH FLA6I 60SUB ERl, ER2, ER3, ER4 

12CE 0300 n « XI ♦ 0X1 1 Yl « YX ♦ OYl 

12E& 0300 If n < 0 THEN XI « 0 

12F9 0300 XF n > 311 THEK XI « 311 

130B 0300 IF YI< 0 THEM YI « 0 

1310 0300- IF Yl > 182 THEH YI « 182 

1330 03C0 OX FIA8I 60SUB QRl, 0R2, 0R3, m 

1341 0300 EOSUB CISPCllRSOR 

1347 0300 ttTWm 

I34B 0300 

134B 0300 CORRECT: 

1350 0300 LOCATE 25,1:FR1HT SPACEtl39)j 

1360 0300 LOCATE :5,i:PRlKT MS THIS CORRECT? lY or H) 

1337 0300 CCRLOOP: 

138C 0300 BQSuB AKYKEY 

1392 0300 IF At « "y* OR At « -Y* THEH At « 'Y'lGOTO COREXIT 
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PA=£ 13 

Reacent Jet Printer 07-05-33 
Pattern Entry/ftacif ication I0:4til3 

OHset D,U Source Line Personal Co»al.r BfiSIC Cc.aiUr V2.00 

i:C5 0300 VCRAf ^•:.-THiH« = -r:5CTcraEiiT 

13F8 0300 COHIOGP 

I,t0 0300 REIUM 

l«l 0300 

U2l 0300 DlSPCURSORs 

,,,, 0300 60SUB PUCEC'JRSOR 

lllC 0300 LOCATi 25.I7:PRIHT USIK3 •♦I.IU-.U • SRID, 

USA 0300 ''RiNT 

,u3 0300 mm using Mt.Hi-iYi t saioj 

H30 0300 RH^R" 
14B4 0300 
KB4 0300 

S aK£(SCS0AT:(I.nM,SCH0ATI(l,21*O-lSCKSATia,3)M.SCH 

1522 0300 
1526 0300 

IS '''' UNE(SCmna,l)^4,5C«AT:tI,21M»MS:K0AT;(^ 

RETUKN 

UK£(SCKCAT11M)44,5lK:AT1(1,2)>4)-(SCNDATIH,31M,SCH 

RADiusi « £CRiis:k:at::;,:)-£:kiiauci,iu-2 ♦ (SCKmtic 

|>0An(l,2))*2) , 

ciRCie (scw;t:(Mi»4.scnoatiii,2)*m,r«oiu3:„„i 

RETUKN 

LIKE (un«,ta*<»-ii-*4ji**> 

RCTURM 
RETUUN 

LINE (mM,ni*<)-{XI*4,n*4J„EF 
RETUKM 



RETURK 

LIKE (xiiu.ti:*4i-ax*4,nMi,o 

'RETURN 



15C4 


030O 




1SC8 


0300 




ISCB 


0300 


R03: 


15C0 


0300 


CAUd 


1667 


0300 




U6B 


03QO 




1666 


0300 


R04: 


1670 


0300 


I,4)-5 




16FF 


0302 




1750 


0302 




1761 


0302 




1761 


0302 


DRli 


1766 


O302 




17AF 


0302 




17B3 


0302 




17B3 


0302 


DR2: 


-17B8 


0302 




1601 


0302 




1805 


0302 




1605 


0302 


0R3: 


160A 


0302 




1854 


0302 




1658 


0302 




1658 


0302 


DR4: 


1850 


0302 




1861 


•0302 




1861 


0302 


ERl: 


1866 


0302 




18AF 


0302 




18B3 


0302 





Rs 2c*n t 


Jet Printer ^^^^^ 


r i wiern 


Entry/nadificition 








uf t se^ 


U« Li 


'nurrt Line l£« Personal Coiputer BASIC Coapiler V2, 






£"2* 


16B6 






1901 




RETURN 


1905 . 






1905 










LIKE (Ii:+4.Y1I+41-(11+4,YI+4),0,BF 


1954 


0302 




19S8 


0302 




1953 


0j02 


rail 


1950 




RETURN 


19&1 






t C t 1 










AS * *• 


1970 




ilHllE AS « 


nir 


0302 










198C 


vOvi 


RETURN 


1990 


0302 




1 BOA 

1990 


QiQJ 


cfTUAKP* 'orQiot for and ofit lilcnite 


1995 




lOPflTE 2S.liPRlNT SPACtU39): 


1932 


A^ 

0v02 


I npftTF ?5 la'PRIMT •<;*:: 'boundrv chevron 


19CC 


0302 


1 nrair t* PRINT *Enttr Pittern Kaic *! 


19£& 


0302 




19F4 


0302 




19FB 






19FB 




* Data Hdds used by this aodttle 


1 OCD 

lirB 








0:^02 


RNl: 


1 0CA 


0302 


DATA •OlR*,'LC;0\*S;vI\-CRAll\-R£PT'/£XIT%",5 


nrr 


O302 






0302 


RN2: 


1A04 


0302 


DATA •LlK£%'R£CT'/ER£CT','CIRCL'/R£l)Rl!','nAIH\- 


IA06 


0302 




1A06 


0302 


1NSTRUC: 


lAOB 


0302 


DATA B,U/US£ ARROKS* 


lAOO 


0302 


DATA 10,9\'T0 SEIiCT mn THE nENU' 


tAOF 


0302 


DATA 14,12/US£ THE ENTER t£V 


4AU 


0302 


DATA 16,10/T0 ACTIVATE ScLECTlOM' 


1A13 


0302 




iAt3 


0302 


END SUB 


lAlA 


0302 




21AF 


0302 





50426 Bytes Available 
43373 Bytes Free 

0 Warning Error (si 
0 Severe Error (si 
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r T-* ^"inter ^^^^ ^ 

Jijrr-t'Oifn PCI-xOOOO custot driver Ofc-iO-.b 

08:3B:U 

Ofhet Dats Source Line IBR Personal Cotputer BASIC Co:?iler V2,00 

00:0 OOOi REH $TlTLE:'ReiCrnt Jet Printer* JSuSTITL£: 'Burr-Brchn PCI-20GO 
0 custoa driver' 

0030 OOOi 'HDCUIE - 'Pd' Driver lor the PCI-20000 I/O ind PaSE cirds 

0030 C00& 

0030 OOCi 'AUTHOR - H. S. Fairchild of Coiputing Architects Inc. 

0030 000& • FiirHeld Way 

00:0 OOOi • Blooiinodile, 11 W108 

0030 0006 ' 312/9B0-6777 

0030 0006 

0030 COOS 'C3P*fP.16HT (C) 1^83 ABBOn LABORATORIES 

0030 0006 

OC:30 0006 'REVISIOH - 1.2-12-16-35 KSF Add digital I/O iftitalizaticn, and 
output rootine 

0030 0006 • , . 1 

0030 0006 • - M 12-10-85 KSF Hove counter tcdule to position 2 

0030 0006 • ... , . 

0030 0006 • - 1.0 11-22-65 RSF Creation of initial code 

0030 0006 

0030 0006 'STSTEH - This code cm onlr be coapiled by the BASCCR V2 

0030 0006 * CCnPILER, it «iU not run under the INTERPRETER: I 

0030 0006 

0030 0006 'OESCRIPTIOH: 

0030 0006 • The PCI todule is a group of routines used to i 

ccess 

0006 ' the BURR-Brotn PCI-2000O board. The supplied sonwire c 



0030 
0030 



auses 

0006 • the «ord$tar2000 sotl-are to taUunction and kUI not p 



0030 0006 • etplicit on, off functions for the counters. Custoi dr 
Ivers 

0030 0006 ' «in fee "de to prcvue all of the desired functions- 
0030 0006 
0030 0006 

0030 0006 • Address Register 

0030 0006 • WCOOOO Carrier I.D. / todult present (Rl 

0030 0006 * IHCOOiO Rodule interruot status (R) 

0030 0006 • WC0050 digital I/O port 0 (R/») 

0030 0006 • WCOOBl Oigital I/O port I IR/Hl 

0030 0006 • iHCO0B2 Buffer direction and eo4ble tR/Hl 

0030 0006 ' ^«C00a3 Control for ports 0 «nd I U) 

0006 • IHCOOCO Digital 1/0 port 2 iM) 

0006 • ^HCOOCl Oigitil 1/0 port 3 IR/HJ 

0006 ' WCO0C3 Control for ports 2 and 3 («) 

l7o Zi ' IHC0200 R"d .odule I.O. (1110 lOlOl 

0030 0006 • IHC0204 RUe generator lo--oroer 16 bits (OJ 

0030 0006 • IHC0205 R*te generator high-oraer 16 bits 11) 

0030 0006 • WC0206 Counter 3 count register (21 

0030 0006 • tHC0207 R*te generator /counter 3 control 

0030 0006 • IHC0208 Counter 0 count register (01 

0030 0006 • IHCO209 Counter 1 ccunt register (1) 

0030 0006 • IKC020A Counter 2 count register (2) 

0030 0006 • IHC020B Counter 0 - 2 control 

0030 0006 * IHC020C Counter gite control (1 enables, 0 disa 



0030 
0030 
0030 
0030 0006 
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Reagent l^i Pri 
&urr-£rc»ta FCI- 



0O30 


000& 




vvuo 


003D 


0G0& 


00:0 


oooi 


003C 


OOOi 


0030 


OOOi 


0030 


OOOi 


0030 


CCOi 


0030 


0C0& 


0030 


000& 


0030 


0006 


0030 


0006 


0030 


OOOi 


0v3u 


wuwe 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


000& 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


004C 


CO 12 


004C 


COW 



r.ter 

ZOOOO cust^a driver 
Scurce Line 
tint 



it 



PASS : 

06-30-36 
08:3B:16 

IBfl Person*! Cotouter BASIC Coipiler V2.00 



function 

Rate qeneritor qiit 
Rate Qeneritor qite 
Coonter 0 qiit 
Counter i gatt 
Counter 2 gate 
Counter 3 gate 
Not used 
Not used 



•:ata DicTiCKAar 

COIWT - Divisor to Znhz rate to give desired ^requenc 
Y or ti» 

COUNTW - High order 16 hits of a 32 bit diviso 

r 

COUHTll - Lo« order 16 Mt$ of a 32 tit divisor 

LSBX - Lower 8 hits of 1 16 bit divisor 

nSBI - Upper 8 bits of a 16 bit divisor 

' Kain line cade 

The lain line code is never executed. It's sole purpose 

it to 

• declare shared the variaBlK that «ill be used in the subrout 
ines 

• so that they «ill all be cehoed and hold their values. 



MIX: 



Din SHARED cou:u,ccunth:,couktu,lsbi,ks8X 



&QTQ HAIHIOOP 
R£K SPAEI 
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Rriqen: Jet r-rinttr ^^^^ ,J 

Burr-rroiin FCI-2CC00 custc* driver os'^a'u 

Source '-K.e rerscr.ii Ccsputer BASIC Coapilar V2.0Q 

'OtStnlFTICK: 

The ?CL:x1T suofcutine initalizes the PCI hirdwire. 
£:S FCMMH STATIC 

CcF 3£& = VHCOOO: 'Foirvl segient to PCl-20000 board 
rZll IKC:0C,IKCC: 't-isiMe all software enabled counter 

s 

' CoAfiqure rate generator to 2 Khi 

FOtE 4H0207,IHW: 'Set le« rate counter to eode 2 
POKE iK0207,lK74: 'Set high rate counter to tode 2 
POKE IK0204,;H02: 'Load loi rate counter with U bits o 

f 2 

POKE ;H0204,W00 

POKE iH0:05,tH02: 'Load hiqh rate counter nith U bits 

of 2 

POKE IH0205»WOO 

POKE IK020C,IH03: 'Enable rate counters 

• Caniigure dot rate counters (default to 5 Khzl 

PCKE W02CB,IH:4: 'Sh \zm dot counter (0) to lode 2 
PCKI i>02C8,lH74: 'Set nigh dot cojnier (I) to eode 2 
pen Vr:v2Ce,W04: 'Iti^ loi rate counter «ith U bits o 

F 4 

PCe IH0209,IH00 

PCU W02C9,'*HM: 'Loaa high rate coantcr with 16 bits 

of 100 

PCt2 IK0209,UOO 
' Caofigae dot puhe •ith one shot (default to U usee) 

POKE ;hO203,W32j 'Set 4ot pulsi ulth cneshot (2) to lo 

de 1 

PCt£ ;b02CA,WIA; 'load oneshot with 16 bits of 26 
POKE (K020A,;HOQ 

' Dxifignre shifted strobe pulse om shot (default to .5 used 

PCKE IK-D2C7,WB2: 'Set shifted strobe onshot (3) to tod 

POKE UiO206,*€Hvt: 'Load oneshot «ith 16 bits of I 
POK£ IH0206,IH00 

* Configure port 0 to output and port I to input 

POKE IH00B3,IHB2: * Set up I/O chip 
POKE U<0082,VH3*; * Set op direction and enable buffers 
POKE W0080,IKOO! * Oissable print head 
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Offset 


Data 


OOAC 


co:: 


004C 


:-oi2 


004C 


0012 


004C 


CSt2 


004C 


0012 




vOl2 


0OS3 


0312 


0053 


0012 


wvjn 


0C12 


005A 


0012 


0063 


CC12 


0063 


0012 


0063 


0G12 


0063 


0012 


006D 


0012 


0077 


0012 


ooei 


0012 


OOSA 


0012 


0094 


0012 


0090 


C012 


00A7 


0012 


00A7 


0012 


0CA7 


con 






OGBl 


0012 


OOBS 


0012 


OOCS 


0012 


OOCH 


0012 




0012 


OOEI 


0012 


OOEI 


0012 


00E2 


0012 


OOEI 


0012 


OOEB 


C012 


oaFs 


0012 


DOPE 


0012 


OOFE 


0012 


OOFE 


0012 


OOFE 


0012 


oloe 


0012 


0U2 


0012 


OllB 


0012 


OUB 


0012 


OllB 


:oi2 


OllB 


0012 


0125 


0012 


012F 


0012 



«) 237 



fteiyini .itt Printer , g 

Eurr-cranr. PC;-:COCC cuscaa ariver otziiXk 

Sourct Lins Persotiil Coiouter 8;S1C CoapiUr V2.00 

•SU3r,MIKc - OQT.QR 

Tht OOT.CH subroutine eniMes the dot frequency counter 

s. 

s:b mt.os static 

pen W020C,lHflF: 'Eflifile dot counters and rate qenerat 



m SUB 

RCT fPAB£IFil2 , 
'SUBKOUTIME - DQT^OFF 

•OESCRIPTICN: 

The MT.CrF subroc i disables the dot counteri 

SUB DOT. OFF STATIC 

POKE IH020C,W03: 'Oisaole dot counters and enable rate 
generator 

m SUB 

RIA fPASEIFM9 



O^^stt 






ccn 


onF 


0CI2 




co:2 


onr 


oc;2 


0l3f 


cg:2 


013F 


ooi: 


OUF 


0012 


oi:f 


0012 


oi:f 


0012 


oiu 


0012 


oiu 


0012 


OlSO 


0012 


0150 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


OlSE 


0012 


Q15E 


0012 


OUE 


0012 


OIU 


0012 


016F 


0012 


OUF 


0012 
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fveacer.t Jet Printer ^^^^ 
Burr-Srcwn PCi-IOOOO custci anver O6-30--6 

oe::s:U 

Scarce Line IB« Personjl Coiouter BASIC Coioiler V2.00 

•SUBP.OUTINE - EET.:QT.RAT£ 
•CESCHIPTIOK! 

The SHT,OOT.RATE subroutint loads the dot rate counters 

• «ilh the desired dot frequency. AllONcd range is 10,000 to I 

• The FREE paraieter is i reil nuilier In Hz. 
SUB S£T.DOT.RAT£(FS£Q) STATIC 

• Liiit ^rtqency to in range 

IF FREQ < I THEM FRtQ = 1 
IF FREQ ) lOOOO THEN FREQ = lOOOO 

• Convert to count and check ^or 16 bit count or 32 bit count 
CQUKT = 2£b I FREQ 

IF COUJn < hllZk\ THEN 60T0 OIViOcU ELSE GOTO 0IVIDE3: 
' Prociess count ol 32 bits 
0IVIDE32:. 

COUHTll » IKT((C0iniT/32768!J ♦ 1>: 'Stage loner count 
COUHTHX • I«T(CCL'NT/CC'JKTLZ1: Tori uoper count 
60TO Sn.COUKT 

• Process count o< U bits 

OIVIOEU: 

COlWTll « 2 
CflUMTHI = IHTCaUKT/TJ 
GOTO SET.COUKT 

' Send the deriireo counts out to the counters 
SET.COUKT:. 

LSBI « COTLl ROD llkx ' Send out lo« U bits 
KSBI « miCQUHTLI / 2S&t 
mi iH0208,L£BI 
POKE lH020B,nSBX 

LSBI « COUKTHZ nOO 25ij 'Send out high U bits 
nSBZ « INT(CCUKTKI / 256) 
POKE IH0209,L3BX 
POKE lH0209,nS6X 

EKD SUB 

REh IPASEIF:27 





Data 


OUF 


0012 


OUF 


0012 


OUF 


0012 


OUF 


0012 


OUF 


0012 


OUF 


0012 


OUF 


0012 


OUF 


0012 


0176 


0012 


0176 


0012 


0176 


0012 


0176 


0012 


016F 


0012 


OlAB 


0012 


0U8 


0012 


OlAB 


0012 


OUB 


0012 


01£B 


0012 


OICF 


0012 


OlCr 


0012 


OICF 


0012 


OICF 


0012 


OlOO 


0012 


OlFO 


0012 


020B 


0012 


020F 


0012 


O20F 


0012 


020F 


0OI2 


020F 


0012 


02U 


0012 


021B 


0012 


0232 


0012 


0236 


0012 


0236 


0012 


0236 


0012 


0236 


0012 


0237 


0012 


0248 


eon 


0263 


0012 


0273 


0012 


02B3 


0012 


0263 


0012 


0291 


0012 


02AC 


0012 


02BC 


0012 


02CC 


0012 


02CC 


0012 


0203 


0012 


0203 


C012 
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Reaqsn; J£t Printer 

8iirr-6rwwi FCI-IvuuO custoi driver 



PA6c 6 
0&-30-B6 
06:33:16 



02D5 C012 

0203 0012 

02D3 0012 

02C3 con 

0203 0012 

0203 0012 

0203 0C12 

0203 0012 

020A 0012 

020 A 00:2 

020A 0012 

020A 0012 

02F3 0012 

030C 0012 

030C 0012 

030C 0012 

030C 0012 

031A 0012 

031A 0012 

031A 0012 

031A 0012 

0331 0012 

034B 0012 

0358 0012 

03&S 0012 

0368 0012 

03iF 0012 

03iF 0012 



m Personal Coaauter BASIC Coopiler V2,00 



00 usee. 

• The d-idth pjrueter is a reil nwber in usee. 
m 5cT.23T.«lI)TH(B«10TH) STATIC 

• Uiit Mdtb to io range 

IF DKIOTH < .5 THEl* OMIOTH = .5 

IF OMIDTH > UOOO THEN BHIOTH « IWOO 

• Cocvert to count 

CflUHT « OMIOTH / .5 

• Send the derived count oot to the counter 

LSBX « WICOUHT m 25i)t * Send out U biU 
nm « INT (COUNT / 256) 
POKE IK020A,15B1 
POKE (H020A,nSBI 

END SUB 

m frAB£IF:27 
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PAS£ 7 

Reaqant Jet rriftter 06-30-86 
Burr-3rc»in PCl-20000 custoi driver 08:39:16 

Source Lire l^-^ Personal Cawatgr dASIC Cospiler V2.00 

'S»IKE - =n.5TR0B£.0ELAY 

.°^^^^^^jj[°'*SET.STRCBE.DaAY subroutine loads the strobe delay 

'"ithlhe desired strobe deUy ti.e. AUo-ed ranqe is .5 to U 
,000 usee. 

• The deUy paraieter Is a real number in usee. 
SUB S£T,STR0BE.DELAY10ELAYJ STATIC 

• Liiit delay to in range 

IF OaAY < .5 THEN OEUY « .5 
IF DELAY ) IWOO THEN OEUY = 16000 

• Convert to count 
COUKT » DELAY / -5 

• Send the derived count out to the counter 

lSBI « IKT (COURT MO 256): ' Send out U hits 
nsn « IKT (COUKT / 256) 
POKE IH0206,LS6I 
POKE lK0206,nSBI 

EHD SUB 

R£H tFA6EIFil& 
'SUBROUTIKE - DIGITAL. OUT 

0408 O012 

0408 OOU 'DESCRlPTIOJt: ^ ^ . . . 

0408 0012 • The DlSITiiL-OUT suftrcutin. s«d« thB passed intaqer to 

the output 

0408 0012 ' poft ^* 

0406 0012 

0408 0012 SUB OIBITAUOUTCBYTEX) STATIC 

0412 0012 

0412 0012 • Send the byte to the port 

M12 0012 ^ 

0412 0012 IR0080,BYT£1 

0423 0012 

0423 0012 WO ^ 

042A 0012 

057F 0012 

50426 Bytes Available 
4B723 Bytes Free 

0 Earning Error (s) 
0 Severe Error (s) 



Offset 


Data 


036F 


0012 


036F 


0012 


036F 


0012 


036F 


0012 


036F 


0012 


036F 


0012 


036F 


0012 


036F 


0012 


0376 


0012 


037i 


0012' 


037& 


0012 


037& 


0012 


03oF 


0012 


03AB 


0012 


03A8 


0012 


03A8 


0012 


03A8 


0012 


03B6 


0012 


o:b6 


0012 


0386 


0012 


0366 


0012 


O3C0 


0012 


03E4 


0012 


03F4 


0012 


0404 


0012 


0404 


0012 


040B 


0012 


0408 


0012 
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70 



PA6£ 

Uiqtn Jit PrintK 01-1 

PitUri Pr;iitift5 05:4 

tSn Ptrwail Catauttr BASIC Coiotlcr tf 

QHsct 8Ul Saurcf Lut 
003O 600i 

COW - «• *• ^'^^'^ 

0010 COOi 

'S 0030 C504 -'^ISKI (t) ITJS MOT IHCaAIOHlES 



„e4 . - 1.1 OJ-07-84 B£ Mdri .01.1 «d toochu 

„30 ,904 1.0 n-OI-ii K£ Crtitioa o< inUiil codt 



4S 



20 fno -STra! - cod. c». »ir b. «.pil.d b, tm BAStn 

O03O Kci ■ CWILBI, it «n «8t TM «.dir th. IKTE»ltn£R!: 

0030 OOOi ' 

«.^» • Wlcd br l"t.r. p .ill cuo.Ut prtUro to b. prwt.d, S .111 «lKt «• 

mo Z ■ ::l:M:'l.r. ..nk.«.t to til. ,ri.t.r. ««UU.. ..it. IK. »t.,.d. 

0030 OOOi • 

S« M« • Dim «h.„»..«.»«M«bli,«.of.tpo««toirfo. k.y 

0030 DflO* • mn W.l «« b... pr.5».d UJ. wn 

Bflia oooi • VlTM «< »J"«<it» ill eurr.nt »itt«r« 

MM 0004 • SarsnCJ,!) lor stenoi tl.intt >« c«rr.»l p.ttKO 

M-in MAi • tmiVL C«u«t«f for r«p.«t prifitw? tht pittKO 

ooa 0004 • Mies; t4dui a* cirdi dttrin| friotiag 

0M4 • n n QH"l» *or Itifl roti/CoUM pwlUoft 

00:0 0W4 • santPr. ltp«t tfi»U««s for ripm prmlia? ol paum 

OCO 0004 • Snsn «uli«9 l «d t P«itiafli <cr «lid rfct.aql« 

flflai • ram tA<»M » "d T potitiflM lof wMA MCtw^ltt 

• nn tout.rs«.dfafr«dU5pat»r.ni«UUU.4rr.t 

OfiM 0004 • TOPt ti|iUif for itic. iiti^trt 

OOM 0004 • Ktawa foiHir to rtich lifu it ictlti li tht cotipirf 

003Q ooa ICW»117,U *rrn tl striim isH U diipliT «•« 

AttlQ 0004 • W 5iMi« *iT«tfoki iayat dtiliMtlofl 

00« 0CC4 • IWWll «"t if difuU f«q«l 

50 00» ooa • riUf «i« of r.«,«t d4U flU «< thn pitUrn 44t* fUt 

0^ ooa • fcrrn of wlm «.d U <i»pUyJM .w« I I. d«fT« 

0030 oca - TOP l.9i»ttf f<y ttf Vitporiry Ucrnf if ftil i-itf* 

0031 C004 BDl fPACE 
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Re»qr.t Ui ffinler 
Prttiffl FriBtift^ 

(Hf ir Oil* Swrcf Line 



09-r 
09: C 

Un PirtaiAl Cauttttr BASIC Cflt^ilir 



fO 


0030 


0CC& 


0047 


00C4 




0047 


0004 




0048 


0442 




0046 


0442 




004E 


0442 


ts 


004C 


0442 


Q0S1 


0444 




COS^ 


0444 




0060 


0444 




C06A 


0448 




006A 


0448 


20 


0079 


0448 


0083 


0448 




008& 


0448 




0084 


0448 




0083 


0448 






0448 


25 




0448 


Aind 


0448 






0448 






0448 




¥*/" 


0448 








30 


mm 






0448 










Q21F 


AilH 




It'll r 






Q12i 


W*M 


35 


0t2fc 


Alio 




022A 


•111 




0Z2l 






OZIC 


04a 




cm 


0448 




0233 


04a 


40 


OtSi 


04a 




4244 


044A 




«2A1 


04tf 




•zn 


0I4£ 




021f 


044£ 




02AC 


044£ 


45 


02C0 


044£ 




02O 


044£ 




02O 


044C 




02a 


044£ 




OICB 


044C 




02a 


044E 


$0 


02CC 


044C 




0201 


044C 




033C 


0470 




0372 


O470 




0388 


0470 




0388 


0470 



tTi PATPftlHT STATIC 

m scwAT:t:fl.3).s9aji(i7,n,»eu(i7,o 

BOSUB mnULIIE: Teid ioit- uUt% «d »tt urttc 

wiu TTpn 0 1 
TTra • 0 

WILE « « " 

Af « mnf 

VDO 

IF Af « OR Al « 'i' no TYPa « I: 'tut safi 

IF Ai « V OR Af « THQI TTPD « 2: 'priat pUUrn 

IF Al « TKO npa « Zi 'iicrtwi tirubli 

IF At • THO» TYPD « 4t •dicrti«t uruOle 

IF « « CKRltOI ♦ CHRH72) TKEH HPEl * 5i '0? airoi irf 

IF At « OStlOJ ♦ CHRKBOl THOt HPH « 6: 'dcrt «rro« kft 

IF Al • CHRHOI ♦ OUII173J T«H TTfPn • 7i *le« *rfO« i«T. 

IF At • CWUtO) ♦ CKM(77) THDi HPH • 8: Viq« «fc« kty 
IF M > CKai(471 ANfl Al < DflUtSBJ THW HfO « H* 0-9 

IF Al • 'S* OR At • THDI TtPH « lOt 'ftttf urUchpid 

ON TTPH fiflSUa Tl, n, T4, T5, Ti. T7, T8, Tt, TIO 
VCKS 

TTfPH « 0 
CUT SUB 

•«Hi««4MM SUSPOUTItfS FCa THIS PJDUU i»m«««« 
TlOt 'fcriUft pid 

SCRHX 0,0,2,3:CXOR 7,0 

LOCATE K5Taixn,l 
SDTELCOFt 

Lttf INPUT KOTCI 

IF ROTtI • <* TKCX SOtOH 0,0,0,0sfieTUM 
tPtlVT K3TC8 

IF wTEiiitt < 24 THEM wTanci « wTawa ♦ I 

GOTO lOTaCOP 



Til 



T4t 



'flit to prut itflu, no sctsoa 



IF BL1U(KW1,01 >« (»E(UlllQ(UX,n TKES RD(U(IC»II,01 « roaHROnn.lhBETURIs 

HEUfRE^iO) • 8£SU(H£rail,0) ♦ REHUlHtKUl,:!! 'idd iftCfMHt 

CaLW 0,7i63SUB OlSPnElSUtRCTWM: «■ wUt 

'proem kif 



'Check ut vUai 
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70 



75 



20 



25 



30 



35 



40 



45 



50 



55 





:ti fnnttr 


?iltira 


rnntin: 




Of tict 








04"3 










042 


0470 






0^70 




044i 


0470 


IS: 


C44^ 


&470 




04^ 


0470 




04&f 


0471 




044f 


«72 


T4: 


0474 


0472 




04S« 


0472 






0472 




0499 


0472 


T7: 


04AO 


0472 




04C0 


0472 




0401 


0472 




0401 


0472 


78: 


040i 


0472 




04F9 


0472 




050ft 


0472 




OSOA 


0472 


19: 


030F 


0472 




0S41 


0473 




0348 


0474 




02S£ 


0474 




0S78 


0474 




0595 


0474 




059F 


0474 




OsAt 


0474 




056 8 


0474 




05SB 


0474 






0474 




CilC 


0474 






0474 






04 /A 






0471 




Am 


04 /A 




0M# 


047a 




OUI 


047« 




ous 


047* 




OiM 


0471 




04£1 


0474 




OiEl 


0474 






0474 




0705 


0474 






0474 




on4 


0474 




one 


0474 




0738 


0474 


Hi 


07:0 


0474 




0730 


0474 




073A 


0474 




07&7 


0474 




cm 


0474 





'U top roH alnidv 
'uvt pQifltcr up one 



bottoi re* «lM4dY 
'■ovc poiattr dovn onf 



'ifl lilt ceUta alritdy 
'lOYt pointfr eat lt<t 

'io riqht celutn ilriidy 

*iovt poifltir oflt rl9^t 



- C9-17 
06:49 

. ' IBfl P«r$cfl*l Ccisulir B4S1C Caifliiif V2 

Ll'ff 

If 5r.'J{S£HUlt01 <« ?.£Win£MU;,:) THCN ntSUtScKUl.Oi « aerjtP£SU:,:i:PrruRK: *ch«ci lin vjUt 
:'.-rjl?3UI,01 « 7;EHU(RWU1,0) - KcHUmEKU:,31: 'mb iocri«8t 
CLW 0,7:SC3UB CISPK»aJ:R£TURX: 'Ifto" «• 

'prociti uj ifroi kiy 
IF SZXU: BOD 6 « 0 TKEK ECTURK: 
Olrn « -USOSUB K£*n£aJ:R£TW«: 

•proce»i do«fl irret kiy 
IF KEXJI RflO 4 • 5 THDI RHUMi 
BIFFl - 1:6QSUB lZWCXU:RmnUli 

•prflc«« UU *rro« kty 

IF imtHtm / 4) • 0 m mm 

Dlfn « -4:60SU3 K£«R£rj:8nWI: 

•process nsht 4rfwi kty 
IF IKTlflErjI / k) • 2 THEM lETURH 
Dlfn « 4:6aSUB K£kR£KU:in«Wi: 

'inpat itn ifllo irrrJFI .fttil <cr> is «lif»d 
L3«7E 23,30:COL(» :i,3:f«UT ^KtU nli V4LUf;:C0LCR 13,0 
lETBJFl « 41 
KHIU M 0 OOtMUl 

LOCAH :5,47»PMHT SP4C£ft20J', 

LOCATE 25,47:«UT ttTlUH; 

u « 

Af i ucai 

KEVD 

IF AS . OTIIBJ i«0 LatrETBUFII ) 0 IKEI UTBUFf • l£nf (r£TflUFf,LElltt£YtUFll-lJ 

IF u > wucn TKEn anuFi • KTBUFI ♦ 4I 

Uff • VSLtKETlUFli 'Utp Us v4lu« of kty* iopal 

*rwad oH tcto Kcorflin) to sttp size in uou 4rrty 
TEKP « 1W(TEKP / (R0(Ull«m,3)) ♦ .3) « ll£«llll£)aJX,3) 

*ttst Tar for uiiiui Atd liaiut vtlics it mm uTiy 
ir 10V } HEKUtnCKfl,!} TKa TW • R£KUlRCI(UI«n 
IF T£HP < llCKUaicWZtZ) TKD TOT « ltDCU(nQ(UI,2) 

Mistrl ten mUi into otag Arriy And opdAti scrttt 

|{ErjtRtKUI,0) • TOT 
lOUTI 23,30jWlin 5?:C£IU0J| 
CCUUt 0,7x603JB OlSPfCW 

*itt larr-lrosa loird then print disirid pAttirn 
IEEPjCTlOR 15,0:WCATI 23,1 

PRIXT 'Set PotwtiOiitKi on friotir.,..lh«i Prisi Any Uy*j 
4t • 

WILE AS « " 
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Reijtnt J«t Printer 
•Pattira Printing 

OHitt UU Source Lint 



PAGE 

IM Ptrtoftil CaiflutfT BoIC CciaiUr V2 



25 



0780 047A 

TO 078A 047A 

0730 OOA 

07AA 047A 

07AA 0i7A 

07aA 047A 

0703 047A 

T^ 07ED 047A 

0619 047A 

0625 047A 

0823 047A 

cs:: 047C 

oe:c 047C 

20 OBU 047C 

03:3 047C 

085A 047C 

08&A 047C 

08&A 047C 

0893 047E 

0840 0480 

0SA7 0480 

08B7 0480 

Q8BE 0480 

OBCC 0480 

08E0 0482 

OBEO 0482 

08E0 0482 

09F2 0482 

0902 0482 

0902 0482 

35 0902 0482 

0912 0482 

0912 0482 

0912 0462 

0TS4 0464 

0996 Wk 

40 09B4 0484 

0934 048i 

0984 0464 

0907 0408 

09FA 046A 

09FA 04BA 

45 OAIC 04BC 

OAtC 048C 

OAIC 048C 

0A2A 0490 

0A4C 0492 

OASE 0472 

SO OASE 0(92 

0A4E 04n 

O&aC 0492 

OAAl 0494 

OAAt 0494 

0A81 0494 

55 



LOCATE 25»l:PaiIIT SPA:EI(791; 

•efltif drcfl M*"*"^'" barr-trort toifd 
TEIlP » HtKUlO.OUCWX SET.OOT.RATEITEHPJ 
TEW « ;:CALL £n.80T.«IOTH(TEHP) 
TEW « RttUtl.OUCALL SH • STROBE. CaAT (TEW* » 
CAU flOT.QK 



'palit RESET Mm 



TERPl « 4 

CAU DISITa.O'JTtTERPt) 
TEHPI « 0: 
CAa OlSITAL.OUTlTaPll 
TESPl « < 

CALL 0ISI7AL.0U7iTEHPl) 

n « Clia(R£W(l,0» 4 255 / I50)t *«l ptilie itpIjUdf by puUinj HIGHER iiqnal Jl cwfitr ol titw 
FOR II » I TO n 

TEHPI « 4: 'Mt H18KER trut 

fllSITAL.aUTlTEllPH 

TOffI « 4: 'Hi HIGJCR f4l« 

CAU OISIT&L.ttUTtTEira 

lElT II 

'csttbtisb CCM: aid iMtialitf plotter 

oPEi •:wu2«o,iij.:.:3 455:3' as ii 

PRIIT ll/;:l'ECS,£7VU«*i 

'lOTC ioz:le ofUet lad establish nci orxqin 
PRUT II, 'AO'; 

'ctlcuUte rei/coUift locatica, tove there, ind set ae« origin 

n • ir.Eiai(i2,oi-ii • iKtmi(i4,o» / o.oos) 
n • i«win,oiMi « tr£)cuti3,o) / o-ocsi 
PRIIT iitixsnro'; 

•print the pitttra usmq repeat count 

tcpn • i(onj(8,0) / 0.003 

tEPU • fSiail9,0) / 0.003 

fOR REKATI • 0 TO HaU(7,0l 

'priat Ihr pUtcra 

m CTl « 0 TO ELHWt • 1 

ON 5CX0ATI(Cn,0J COSUS PLIICE, PRECT, F5SECT, PCIRa 

KciT cn 

fRlMT II,'A,0,0,*;t 'feturo to oriqin 
paiHT •l,R£Pn;R£Pn;'0*i: 'tov* to aeil pittera 
BEIT REPEAn 

PRIBT ll/H'i; VetttTi plotter tfl ortqinal MORE 
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PitttfQ rr-.f.tito 





ut ric. 










10 


0&68 


t.lZL 




Q(t6B 






OftBC 






0A9C 


4494 




OmwI 






0603 




15 














08A9 






OsAt 






ACQ A 


wit* 






0494 


20 


Utwtt 


VI 1* 






AiOl 




Af 01 

Ou86 


AiOl 












0494 


25 




0494 










V4i 0 




C067 


AJII 




0067 


WlO 




oo&c 






COAO 


Wit* 


30 


0004 






0£l5 






Ar*i 


Wit 




0£2& 






0t7^ 


Ai47 
Wit 


35 


Am 




ftCQfl 






ftCQfi 
OCtB 


04 9£ 




ACAfl 






ArDi 
vlll 






OCBl 


Wit 


40 


0£B4 


04n 


oca 


Mn 




GQ? 


0A« 




QCEI 


M9t 




OfOC 


WtE 




OfU 


OW 


45 


oni 


049€ 




0F44 


0491 




0F44 


049E 




0F44 


M9E 




or4i 


049E 




QF6t 


049E 


50 


0F4A 


049E 




oni 


049C 




OFAl 


049E 




OFAA 


049E 




QFSI 


0A9£ 




0F03 


04!E 



09-17 
OS: 49 

ItA Ptrtonil Co^utir BASIC Cctpil<r V2 



'disaolc CQiti 



PCIRa: 



P«<IMT ll,S:raiATUCn,3);SC«0ATl(ai,ll:'0*; 

PflWT u,satMU(cn,4j;scmAn(n:.2i;'U'; 

PRirr'u,sciiDATucTi,2Jjscwftntni,nj*rj 
MINT «i,sai0Autcu,4))Sa3An(cn,ii; 

PRIXT «l,5C«AU{Cn,4)jSCWJAn(Cn,31| 
PRIKT U,SCX0An(Cn,2)iSCX0AniCTIt31| 
PHIKT ll,SCKDAniCn,2)j5CHDAn(Cn,ni'U'i 
RCTURX 

RAOiusi . 5;R(tsci:Antcn,:i-sc«AutcTi,in*i ♦ (scK:An(m,4)-scicAn(CTi,:)r2i 

PRIKT 11,'CC ^SCXOAniCTUliSCaATKCU.lIjRAOIUSIi 
RETURI 



PSRECTt 



STCPt: 



su « sc«jAntcn,4i:cu « swoAntcn,:! 

sn ■ 5CW)ATi(cn,:i:tr. « sooAntcn^n 

IF Ei: <• su sr. « sc3i6ATitcn.j):En « sc3fflAn(ni,4j 

IF En <« sn sn » smfluttn^mni « sckoatiicu.ij 



PRIKT ii,sn;sn;':'; 
IF En - sn >« ct: - 

fRliT II, -U'; 
RETURN 



3TX THEK 6CSUB STEPt ELSE WSUB STEPI 



STEHi 



fRlWT ll,En;Sn; 

sn • sn ♦ 1 

IF sn > En TKEM RETURS 

nwT i;,Enisn;5njsn> 
sn • sn ♦ 1 

IF sn > en THE* RETUM 

pRiia ii,s«isni 

COTQ STEPY 



rRIW lt.SU;En; 

su « sn M 

If SIX ) ill THEM RETURR 

pfiiHT ii,sniEn;sn;sn; 
sn « sn ♦ 1 

IF sn > EU THEK RHURJI 
PRIRT ll,SU;Sn; 
60TQ STEPI 
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5 Kiic«nt ill Prinlir g^.j^ 
PalltrB Printir? ^g.^^ 

. , m P«r»onal Ccicmir £«IC Coipiltr V2 

Source Lir.t 

otu/ V^IC 

^0 om M9E Ka«£HU: '■ntf oU lUi ia TtMoi, point to and hr^bliqU aw Jt« 
COIOR M,0:fiOSUB DlSFnEW 

RcJftii « FCHui * om 

:F flEKUl « 10 TH£« HOUl » ? 
If RtW: « U TKtH fOUI « 9 

If HOtui > i; Bcoji « is 

t03O 04?£ CtlLOR 0.7:SQSU6 OIS?R£Ky:finunj( 

INITIALIZE: 

•cUfiqt to scfMft 0 and ditpUy M«*e«« , . . ^ ..aw « * c-t 

SuOT C,0,I,l:CaLffil 7,0:a£:LQCATE 10,l7:raiHT 'UaiiBg uuctid Ruqent lad Pittri Dita FU«« ; 

LOCATE i:,:3:PRIKT Kail...' 



20 



2S 



30 



35 



SO 





S«ta 


mi 


049E 


on)7 


049E 


one 


049E 


QFEE 


049E 


OFfA 


W9E 


lOOC 


049E 


lOtE 


049E 


t03O 


C49E 




049E 


1046 


049E 


1048 


049E 


104B 


049E 


lOSF 


049E 


IM9 


049E 


tOA9 


049E 


tOA9 


049E 


lOCE 


049E 


tOQB 


049E 


lOE* 


049E 


lOEi 


049E 


10E2 


049c 


ICE? 


049E 


UEF 


04 9C 


lUF 


049E 


1160 


04 9£ 


1193 


049E 




049E 




049E 




049E 




04 9£ 


1 (SO 


04 A2 


liLO 


04 Ai 




04Ai 


itrr 


04AA 


IlLV 


04 A4 


noo 


04A& 




04A6 


1246 


04A4 




04AA 


tnc 


04A4 


\m 


C4M 


\m 


C4AA 


usa 


04AA 


12B8 


04AA 


ins 


04Ai 




04A6 


i:os 


04A4 


12E0 


04AA 


12F4 


04 AA 


Iff4 


04AA 


IZOS 


04AA 


1317 


04M 


ICA 


04AA 


ISO 


04AA 



'iaittalize ootipad on icrtM 2 
SCREEK 0,0,2,l;CLS:C0LQa 15 

PRIHT'Olqilil totepad All lB<flr"tiofl typed here is tent to the printer 

NQTaiKEI * 3 

•IMtiAliie eenu arrayt 
RESTGaE AARQATA 
FOR 11=0 TO 17 

READ KEKUI(Il,01,RCXUt(lXiI)t 

SEAS K9W(Il,i: ,R£»rjm,21 .llEWJ(i:,31 ,K£XU(U,41 

NEIT n 

•get default reaqtflt hU «d read »aUe« 

OPEH •K£A:EF,RJF' fCR UPUT AS 11 
INPUT lUFlUt 
IKPUT n,R£AWBEl 
aOSE 11 



OPa FlUi FOR 11^* 111 'fct reaqcot data 

IKPUT ll/iJnKO.OI: 'Irequency 

IKPUT ll/EKUl^Oi: *aiflUludi 

40 1223 04A6 IKPUT ll,5£KU(2,0)i 'strotte dcUr 

IKPUT M,liEl!U(3,0l: 'fuUe •idlh 

IKPUT ll,Il£IU(4,0)i Vifl tit 

IKPUT IM(£NU(S,0li 'Ull tiM 

aosc It 

45 t}S8 04Aa *qet deftalt pattera Hlc and read vaUei 

OPa «PATDEF.)UP* FOR IKPUT AS II 
IKPUT ll,FIUI 
IKPUT ll/ATJUREI 

aos£ II 

OPEK nLEt FOR IKPUT AS lit 'fet pattero data 
IKPUT II,EUWI 

IKPUT lUHEMJdiOh 'ffid 

IKPUT •l,R£KUt7,0h •ftpeat count 

IKPUT ll,liEKU(6,0Ii 'I oHset 
55 
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Rei^tnt Jet Printir 
Pilttrft Printing 

(Kfsct UU Scarce Lini 



09-17 
08149 

IW PiTMnal CoMutff fiiSIC Ccaailef V2 



10 



15 



20 



25 



30 



55 



40 



45 



50 



USO 

i:bi 

13B7 
13V8 
13£B 
I3f0 
1404 
14C4 
1404 
1404 
1420 
143C 
1428 

u:4 

1474 
1474 
1474 
1491 
1491 
14S2 
14B7 

i4c: 

1523 
153E 
1548 

i:cs 

IS£6 

isn 

U2A 
1M5 
U« 
U4S 
IMS 
1431 
1437 

uso 

lUO 
1440 
1440 
I4fi0 
1464 
1464 
1484 
1492 
14C1 
14fO 
170A 
170A 
1734 
1793 
17E1 



04AA 
C4AA 
04AC 
04AC 
04AC 
04AC 
04AC 
04AC 
C4AC 
04AC 
04AC 
04AC 
04AC 
04AC 
04AC 
04 AC 
04AC 
04&C 
04AC 
04AC 

04;:c 

04AC 
OAAC 
04BO 
04B0 
0480 

04^0 

04B0 

04BO . 

04S0 

04B4 

0414 

04B4 

0414 

0414 

0414 

0414 

04U 

0414 

0484 

0414 

0484 

04U 

0484 

0484 

04U 

0484 

0484 

0484 

04U 

0484 

0464 

0484 



iKPtlT ll.AtKUCl.Olt 'y 0'^"^ 

FCR 11 « 0 10 clSU«*l 
FOR Jl « 0 TO 3 

IKPUT •i,so(CAnai,jii 

tSiT IZ 

atsE II 

•nt fMiioinq piraittri io «Mtt irriy 



ItEWtU.Ol 
1001(13,01 
RCKU(14,01- 
REWtlS.O) 



1: 
li 
Oi 
0: 



Vm 1 
*cola«A 1 
'ro« ipuiiq 
'coliun tpKiaq 



•chaqe *cti« dupUrid «rtw to itriin 0 to df« wtf diipUy puiMttrf 
SCKECT 0,O,0,l:CLS 

CniDR 13;UCATE 1,32:PR1HT 'KASaT PRIKTlffi*; 

cacR 9 

^'^ 3Vl:P8I»«T CW*(1941pL0CArc3,l:PRm CWlt 12051 ;:LOCATt 18,1:PR1XT CHtlimi, 

ICIT I 

Sciu l,l:F8U: CWni791;tLCCAT£ I,:8:PR1«T CKHnmnaCCAU 1,34.P81HT D«f (ie41;:LfltAU I,£ 

RtKT CHHI(179I| 
KCIT I 

(£STOR£ TABIC 

FOt 1*1 10 12 

REAO RI,K,r.;:::5TE Rl,a;P«IKT 0«l(«)l 

an 1 

CCIDR 14,0 

FOt ICKUI « 0 TO 13 

mat fiisPRCu 
IC2T nm 

'ft«t (or iirit iMt tAtry ia4 UqhligM it 
f£IUl « OtCOLQX 0,7 
USU8 OISPKCHl 

*priit tlrtt hiidtaqt and iottrnctioAi 

mot 10,0 

lOCATt 4,l4.3-lEKlR£A»»Allcl)^I:PftlIT R£AKAfCf| 
UCATE 4,4K£M<PATR:n£n /2;FRI1(T PATKAKIi 
LOCATE 4,40»PR1KT 'PKIKT UOCATIOI*( 

COUR 7:lflCATE 19.:0:PR1KT -Usi 'pCXOa 13:PfilKT a^«*271;Cffil(n);C«8l(24l| 
SwT CHlf(3:i:CWI(24»iCH8in:i|C)«f»23)i:ai0R 7.«1XT • to '"^^^ ^JJ*" f ' /^^^ ' 
LOCATE 20.l8:PaiKT -Oit ^CXOR lS;PRrtT M-pCCLOR 7.PRH(T • or MiOlOH U.PRUT | 
COLOR 7iPR»I' to scroll carrtut «lu« up or do««*| 



55 



55 



0 2o8 237 



5 



to 



T5 



Rctqtflt Jtt Prifltir 

tin ?trwii Coipattr BASIC Cctoiltr VI 

Sourcf Unt 

-Mt «crM« to »iM «<«« l-at trutti •«« «it 

IMC 04Si snnx o,o,o,o 





i4tl 


I7F0 




183F 




lfl&7 




U^C 




U9C 




I89C 




16SC 


04U 


isai 


04U 


UBS 




tSBS 




IS8A 






0U4 








Q4B4 












04U 



mean (rowx rm 4M2*7,iiau(nDaa,4J 
Mi«T USIH6 itiajtiR£Kui,niKaut»£>wi.o>J 

RETUftl 
RERfPftSE 

40 



4S 



SO 
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5 



Ui^tv. at frinttr 
10 Pitlfttfl Frintinq 





ictr 


94St 


'iiiu44i«iu :;;t£ usi9 (t this 










75 










19C4 




ZXl* *Zzt FrtflueaCTf 




19C4 




MT« 'Aa;Utorf< 




19CB 




KT; 'Strcti ikliT 




19CA 




DATA '?uUc HidU 




19CC 


04B6 


CnTI *1Itii Tilc 


20 


19C£ 


&4U 


OATl *F4n Titt 




190O 




MT* •6rid Sin 




1952 


MBi 


im "fitpfit Cooat 




m4 




lATA M AiH flHse: 




1906 


04B4 


CATfi Offjel 




xm 


«4U 




25 


in; 


CM 


MT* 0,0,0,0 




190C 




CAU *lto> to Friftt 




mi 


04U 


WTA 'Cola»A to Prtat 




19£0 




DAW 'Rot Spictflq 




\m 




OATA *Coloin Spicioq 


30 






WTA "/\0,0,fl,0 


I9£i 

ins 


04U 
04U 


DATA ",••.0,0,0,0 




ma 


04U 


TA2LE: 




19ES 


»4U 


(ATA 3,1,318 




19£F 


04U 


DATA 3,26,210 


35 


I9FI 




WTA 3,34 ,:iO 




048i 


DATA 3,80,191 






&4U 


DATA 3,1,198 




I9r7 


04U 


MTA 3,2S,:0i 




mi 


04U 


DATA 3,34,206 




i9Fa 


MU 


DATA 3,80,181 


40 


19FB 




DATA 18,1,192 


l9Ff 


4414 


DATA 18,28,208 




IMl 




DATA 18,34,208 




ml 




DATA 15,80,217 




IMS 


cm 






lAA 




01 SCI 


45 


IMC 


MM 




lAOC 
:047 


om 

04U 





50426 iTtM AviiiaU 
447U lylM Frt* 

50 

I Kifftiol Error (il 
6 U*trt Error (tl 



K:-. Ml, Mr. 10000,1,1,16 
V •,MtlM50.0,l.l9 
uS\'H,nM*.:3999.3,.3,.5 
•,*Hr,999,0,l,l9 
•,*Mr,919,0,l,l1 
•,'l«',999,0,l,t9 
ia',M,lir,.00;,.005, .005,45 

•,Mr,«,0,l,47 
ifl*,M.lfr,2,0,.0fl5,43 
U*,M.Mr,2,0,.0O3,43 



•,Mr,99. 1,1,74 

•,Mf,99,l,l,74 
ift'/Mir,3,0,.003,72 
io\M.4ir,:,0..003,72 



55 



0 2^8 237: 



R22:e:t Jet Printer J 

07-09-aD 

Reagent Filira ^^.^^.^^ 
Offse: jctj £3-J.'ce '.ire It^l Persor.il Caaputer SA31C Ccapiier V2.00 

0030 «Ci JlMLE:-Eric!nt Jet frir.tef SSUBTITLErEeiOcnt Filing' 

0030 «0« -y.VM - ''.li>!^V^' rile Kmoling for reaqents 

003$ OOSii 

0030 woo •iurros - k. a. inwu 

0035 OCti 

OOW MCi CS?YR:Sin fCl l«5 USSOT! UBORftTORlES 

0030 W5i 

0039 COii ?.r.'lSlCM - l.l 03-07-Bi ME «dd«d notes ini description 

Oojo «04 • !•» eM<-84 Creition o{ initiil code 

0030 C004 • CDieillR, it iiill not run under the IMERPRETER.. 

0030 OCOi 

0050 OOOi -SESaiPTIOM: 

0030 «0w6 ' Tliis lodul* »lln« Hie hwdlin? for reioents. Wen inv 

ocH), it dispUys . . , 

0030 0004 • the current contents of the reiqent directory in 4 colu 

ins of 20 entries , ^ , 

0030 OOOi • ejch. The reigent «hicn is currently selected for prin 

tisq is «rk«d by 

0030 M06 • ifl "terisk to the left of the reiqint n«e. After the 
dirKtory is listed , « . 

OOJO «004 • the user is presented -ith 5 eenu choices. The left « 
d riflht vro« ire . ^ . ^ 

0030 0004 • used to highlight •»«« itus «d the enter Uy is used 
to invoke iction. 

OCJO 0CC4 * "Hi* choices ina tseir actions Jre: 

JJjJ JJJj . taETE - Rei«»e * reagent file free the directo 

0030 0004 CWT " Csoy i reiqenl file to J ne« reagent n 

aae, saving the old reagent 
jg04 . REHMIE - Ctanqt the aaie of the reagent •ithoot 

ctangmg the reaoenl itself 
0030 0006 • SEUCT - Selct a rjagent for printing 

0004 • EI" - 

0030 0C04 

0030 0004 -DATA OICTICHARY 

OOJO 0004 • Vim Hhieh type of ralid key .as pushed 

ABM M04 • nam W»ich leno itei is being pointer to (0-41 

0030 0004 • BIFH Distance to lOve HEKUI at left or right »rro 

0030 00C4 * nJK Error type 0-* 

0030 0004 • POWERJ Position ot' REAKRICEI in directory list 

0030 OO04 • Raauni . " ""f 

0030 OOOi TE5PI Storace for integers during reagent copy 

0030 00C4 ' ft* , , . , 

0030 0004 • FUSCTI Printed at bottoi of screen during proipt fo 

r reagent naie , ^ ^ ^ . 

0030 0004 • KaiKt Reagent ni« currently temq -orked on 

0030 0004 • SELSMEt Re.qect naae currently selecteo for printing 

0030 0004 • FILE! ?ile««« of reagent oata file 

0030 CCS4 ■ SFILEI Filenaae for source reagent data file used d 

58 



■» T • * • 



agent 



Jet frintsr 



15:04:35 





Ctf set 




Source Line Ic'l Personoi Caaouier ohSIC Co«oiier V2.00 


JO 










0030 


COCi 


O'lLEl -iieniae ror dastinitio:; reagent dsta lile u 








se3 ^fyrin; ccpy 




0030 


O0C6 


WEiiKA:'.EI '*e« reaqer.t naie ^or COPY and RENWE 




0030 


00C6 


TEr.?l Sticent na«es are held here as the directory 


75 






is Sainq re-«nlten 




oc:o 


COC& 


S£W?lLtl OeStinatlOA filenaie used while copying reao 








er.t data I'iles 




0030 


0006 


r-SSASEI A aessage printed at the bottoi of the scree 


20 


0030 


OOC^ 


n 

KEK'JJK,!) Array strings containing the short and lo 








ng tena oaaes 




0030 


0006 


ERRnSSr Kessage printed when any error occurs 




0030 


0006 


EKRt Appended to EwinSSJ to indicate nature o4 er 








for 


2S 


0030 


0006 






Pe.q.nt J.t Printer J^E 3 


30 




15:04:35 




CfrSBt 


uu 


Source Lint loS Personal Coaottttr BASIC Coioiler V2.C0 




0030 


O0C6 


t:i ft£A=3!T.FIL£ STATIC 




0047 






35 


0047 


0OC6 


60SUB IKlTIfilUE 




004D 


0006 


TYPE! « 0 




0054 


oooe 






• 0054 


0008 


MM TY?E1 O 3 




OOSF 


oQoa 




40 


0069 


oooc 


WILE At « 




007B 


oooc 


AS « [KKEYi 




0082 


OQc: 


VEXO 




0085 




IF Ai « CHRKO) ♦ CHRi(75l T)^EH TYPEl * U 








Meft «rro» 


45 


OOAA 


009C 


IF AI « CHRHOJ ♦ CHRS(771 THEH TYPEI « 2: 








'right «to« 




OCC? 


oocc 


IF At « CKRt(l31 THEK TYPEX « 3: 








•<cr> to execute selKtion 




00E9 


oooc 


ON TYPEl E0SU3 Tl, T2, T3 


50 


00E9 


oooc 




OOFS 


oooc 


VEHO 




OOFC 


oooc 






OOFC 


oooc 


EXIT SUB 




0100 


oooc 




55 


0100 


oooc 


REB tP«£ 
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5 



70 



75 



20 



30 



35 



40 





jet rrintrr 




Reageat Filtnq 






Offset 




Source Lin- '^t^ P«r5CP,4i Coicutfir 


0100 


oocc 


AUt^*u iU5-:G-JT;?:n FCrJ THIS ?.00UIE 


0100 


ococ 






0100 


oooc 


Tl: 




OlOS 






r^PEl = 0 


OlOC 


ococ 




IF nLSl': = 0 THEK RETUiW 


CUB 


OOOc 




DIFFX = -1 


0122 


^10 






0128 


0010 






012C 


0010 




Vight arroM 


012: 


OOtO 


72: 


0131 


0010 




nPEl * 0 


oi:a 


0010 




IF niW: « 4 THEN RETJKM 


0147 


0010 




OIFrl = I 


OHE 


0010 






0154 


0010 






0158 


0010 




'<cr> (eiecate selected i 


0158 


po;o 


H: 


0150 


0010 




UQCAU :5,l:FRI>tT 5?;Ctsa9); 


017A 


0010 




w r.EKu: ♦ 1 eosuB t:a, t3B, nc, 


OlBf 


0010 






01« 


COlO 




RETUKX 


0199 


0010 






0199 


0010 


m »?A6£ 



PftoE 4 
07-09-56 
15:04:35 



50 
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Reiqent Jet Printer 

Raagcnt FiUnq 15:04:35 
Offset D3t. Source Line 15^ Persona Co.Quter BASIC CocpUer V2,00 

OlSV 0010 T3A: 'delete rejqent 

01<?£ GOlO TYP£I = 0 

01A5 0010 FUNCTS = 't)elete' 

OifiF 0014 GOSUB SET.SOuaCE 

OIBS 0014 IF LENiREAKAHESl = 0 THEK RETURN 

olc7 cola IF nEHNAr.£l = SEUAMEt THEN FLAGI - 4:6GSUB SHOW.ERROR: 
RETURN 

Oin OOIE GQSUB SEARCH 

olcO OOIE IF pointer: = 0 THEH FlASl = hSQSUB SHOW. ERROR: RETURN 

S:!? S «H£SA6£$ = -Deleting ' ♦ REAKAMEf * ' Please Uiii.. 

0220 0024 50SUB ftESSASE.OH 

f^Jl QQ24 -rewrite directory deleting REANAnEI as indicat 

ed by PQINTERI 

022& 0024 KILL •READIR.OLD* 

022D 0024 «AflE 'READIR-RJP' AS 'READIR.OLD' 

0237 0024 OPEN •READIR.OLD' FOR IKPUT AS «l 

02^3 0024 OPEN 'READIR.RJP' FOR OUTPUT AS 12 
0:SA 00x4 

025A 0024 INPUT il, REAKUHl 

02iC 0026 RcANUnX = REANUKl - I 

027S 0026 WHE l2,R£AHUni 
02B6 0026 

0286 0026 IF RHAKUnV « 0 TH£K E0T3 DIR.DONE 

02S5 0026 FOR II - I TO REA-Vjn: ♦ I 

02A4 0028 INPUT lUREAJ^J'-Ef 

q2b1 0029 IF 11 <> Pt^^'^^l P^^**^ «2,REAMAnE$ 

0203 002A NEIT II 

02E5 002A 

02E5 002A OIR.DONE: 

02EA 002A CLOSE llrCLOSE 12 

02FB 002A 

02FB 002A 'reiove data hie 

02FB 002A FlLEt = RIGHTJ (STnUPOinTERI) .L£Ht3TR<(P0lKT£RIl)-l) ♦ 

'REA.RJP* 

031C OOH " KILLFILEI 

J323 5«2£ ""i""? """^ 

list to dirtttory 

0523 002£ WILE (StAHUHt ♦ t) > PQWTERI 

"33 002E SFILEI . RIEKTi(STW(POIKTERI*U,LE«(STRI(PflIKT 

OFILEI « RIBHT»(STRI(P0IKTERU,LEK(STRt(POWTER 

ll)-Jl ♦ 'REft.RJP* 

0370 00J6 KftXE SFtLEJ AS OFlLEt 

0387 0036 fOf^E" • * ' 

0390 0034 HEM* 

03f3 003& 

0393 0034 ^SSABE.OFF 

0399 0034 REASMEf » SELHAIlEJ 

03*3 0034 fiOSUBHOA 

03M 0034 60SUB OlSP.OIR 



0359 0032 
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75 



20 



Rsacsnt Jel Printer 

Reagent Filina l^;04' 
Offset Dita Source Line ?tr«nil Cc«ater BASIC Ccipiler 

30 

OlAF 0036 RETURN 
03B3 0016 

03B3 0036 REH tPASE 

J5 



40 



45 



SO 
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Reaqent Jet Printer ^^^^ ^ 

Reacent Filing ^^'^^-Si 

Source Un« I-'-'. Personal Cotputer BASIC Ccapiler V2.00 

T33: *copy reiqent 
7YPE1 = 0 

IF REAKUnr « 80 THEH FLASI = 3:50SUB SH3*W. ERROR: RETURN 
FUNCTS = •Copy* 
GQSUB an. SOURCE 

IF LEH(R£fiNAr£Jl = 0 THEN RETURH 
60SUB SEARCH 

IF POIKTERI = 0 THEM FLA61 = l:6QSUB SHOW. ERROR: RETURN 

EOSUB 6ET.llEy,KAn£ 
IF LEHtHEWNfinEtl = 0 THEN RETURN 

IF LEKtNEv;«An£f) > IS THEN FIASI = 2:EQSUB SHQ«.ERRQR:R 

nUHK 

ftE£SA5£J ^ 'Capying * ^ REAKWlES ♦ ' to • ♦ NEWNAnEJ * 
Please mit.." 
.GOSUB RESSASE.Q}! 

*jdd nev naie at end oi directory 
KILL •REAOIR.OLO* 
KARE 'REAOIR^RJP* 'REAOIR-OLO* 
OPEN •REAOIR.OLO' FCa IHFUT AS II 
OPEN 'READIR.RJP' FOR OUTPUT AS 12 

INPUT 11, REAKUni 
REANUni « ^EANUn ♦ I 
WRITE l2,F.£AKUni 

FOR II ' I TO REAKUni - I 
IKPUT II JE-.PI 
PRINT I2,T£5PI 

KEIT II 

PRINT l2,H£WHAn£l 

aOSE lUCLOSE 12 

'create copy d data lile 
FlLEf « RI8HTS(STR«lP01«TEftI),L£M<STRI(P0lNT£RIJJ-U ♦ 

•REA.RJP* 

05i7 0040 ' KEVFlLEt « RISHTf (STRUREAUUKI) ,L£H(STR$(R£AKUHin-U ♦ 

•REA.RJP* 

OSBB OOU 

0538 00A4 OPEN FILE! FOR INPUT AS 11 

059C OOM OPEX HE^FILEJ FOR OUTPUT AS 12 

05AE 0044 

05AE 0044 IHPy^ 
05C0 0048 ^RHE l2,TEnP: frequency 

0500 0048 IHPUT IIJEHP 

05E2 0048 WHE UJEHPs 'pulse nidlh 

05F2 0048 IKPUT llJEnP 

■ oi04 0048 WITE l2,TEnP: 'strobe deUy 

0614 0048 INPUT llJEnP 

0626 0048 WRITE l2,TEnP: 'nonle 

0636 0043 

63 



OHset 


Data 


G3S3 


003i 


03oB 


0036 


033F 


0036 


030B 


0036 




VU JO 








0036 




0036 


ir 




I r 


0036 




0036 


0437 


003A 


0457 


003A 


0457 


003A 


047C 


003A 


0482 


003A 


oas? 


003A 


04ft7 

V^QL 


003A 


0439 


003A 


fl49:i 


O03A 




003A 


04B6 


003A 


04B6 . 


003A 


04C8 


003A 


0401 


003A 


04E2 


003A 


04E2 


003A 


04FI 


003C 


0503 


0040 


0513 


0040 


0525 


0040 


0535 


0040 


0535 


0040 


0543 


0040 


0543 


0040 


0543 


0040 



0 26e 237 



5 



10 



IS 



20 . , pftBE 8 

reigeni mnler 07-09-86 
RGigent Filir.q 1S.04:35 



25 



30 



J5 



-<0 



Grlset 




Source Line IB** P 


O&oo 


004B 


iNrUT t\,nm 


0643 


0046 


PRIKT l2,TEnPJ: 


06Sa 


0048 


INPUT IIJEHPI 




00*3 


PRIKT l2,TtnPl: 


067A 


0048 


INPUT IIJENPI 


06BC 


0G43 


PRIRT t2,TDlF5: 


069C 


0048 


CLOSE IliCLOSE 12 


069C 


004& 


06hA 


0048 




OoA; 


0C48 


6CSUB NcraASE.Grf 


O6B0 


0048 


GOSUB oisp.cia 


06B& 


:04S 


RETlftM 


06BA 


0048 




06BA 


0048 


m tPASE 



*ccn«ntr*tion 

'density 

'viscQSity 



45 



50 



fiS 
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ETUKM 



.lit* PftSE 9 

Reacent Jit Printer ^^^^^^^^ 

15:04:35 

Source Line ISn Persanjl Coaputer BASIC Coapiler V2.00 

"C: *reniae rcaqent 
TYPEI « 0 
FUKCTi = 'ftenaie' 
EQSUB GET. SOURCE 
IF L£}i(REA«Afl£Jl = 0 THEN RETURK 
EOSUB SEhRCH 

IF POINTER! * 0 TKEH FUBI = ItfiDSUS SHOW. ERROR: RETURN 

SOSUB GET,HE«.Hfln£ 
IF LEHCKEWMArEJ) = 0 THEN RETURH 
IF LEHlHEWHAflEfJ > IS TKEH FUSI - 2:G0SUB SHQ«.ERRQR:ft 

IF KOiNAKES = REANftnEl THEH RETURN 
nESSAEES =/Ren«iftg * ♦ RWHAHEf ♦ ' to ' ♦ NEVNAHEJ ♦ 
Please «ait..* 
6Q5UB RESSASE.QK 

'renaiinq reaqent naie in directory 
KILL •REACIR.OLO* 
MAKE 'REAOIR.RJP' AS 'REAOIR.OUI* 
OPEN •REAOIR.Ol.r FOR INPUT A3 U 
OPEN •REAOIR.RJP* FOR OUTPUT AS 12 

INPUT II, REANUBl 
WITE n^REAHUni 

FOR U • I TO REANUn 
INPUT llJEJlfl 

IF i: <> PQ;*i:£RI then print I2,TEKPS 
IF 11 = PQIK'ER: then print l2,N£HHAnEJ 

KEXT II 

aOSE lUCLOSE 12 
MSUB nESSAEE.OFF 

IF REAKAnEt = SELNAftEl THEN REAHAnES = NEUNAnE$:GQSUB T 

EOSUB m?\m 

RETURN 



Reaqeni Fiiino 


OHset 


♦lata 


068^1 


C043 


065F 


0043 


06CS 


0043 




wa 


06D& 


0048 




OG48 




0043 


u / y H 


004B 


070A 


0048 


0710 


C043 


0722 


0048 


07A2 


0048 


0755 


0048 


077A 


0048 


07B0 


0048 


0730 


0048 


07B0 


0048 


0787 


004B 


0791 


0048 ' 


07AX 


0046 


07B4 


0048 


07B4 


0048 


07C& 


0(^48 


0707 


0048 


07D7 


0048 


07EA 


004A 


07Fi 


004A 


0B13 


004A 


0830 


004A 


0642 


004A 


0842 


004A 


0850 


004A 


0650 


034A 


065& 


004A 


0875 


004A 


0B7B 


0Q4A 


0B7F 


004A 


087F 


004A 



m IPAGE 
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Reiqent Jet Pr;ntr r ^^^J^^ 

Recent rihn? ^.^^^^^^^ 

Offsr. ;jti £c:-c« "'^ '''""''^ ^"P"^"' ^^^^^ '^'^'^^ 

0S7F c;i: n:: *TelKl rsioent Icr printing 

0839 C0i4 AiJiCTI ^ *£e!acf 

oan Ov« 5£i,SaURC£ 

039:. r/^A *F LDifSEA.VAK£$l = 0 THEN RETURN 

08fiC -Cift :F REiNARc^ ^ SELKAnEJ THEN RETURN 

OECO ocn =cs;B niA 

05C6 OOU 63Sy8 D15?,DIR 

08CC '^W. RE^USH 
OBOO 

08D0 CO<A T3:-A: 

0835 :o;a ttSu-s search 

Oggg IF pflWTOa = 0 THEN FLASI » l:GaSUB 5HO«,£RR0R:RETURH 

08F7 004A 

OSn 00<A KEEEAScf « 'Selectinq • ♦ REAMAHEI ♦ • Please Ui\. 
« 

090E 004A toSUE ftESSASE.CK 

Q9J; 'change entry* m reagent default file READEf.R 

ap 

0914 W4A 'READEF.nw?' m OUTPUT AS II 

09:6 M4A riLEI = RlBHTi ISTRJtfOlHTtRl) ,L£K(STRt(PQlNTERl) )-n ♦ 

•REA.RJP" 

094A 004A 

094A «<A PRIKT ll,FIL£l 

095A vCW PRINT ll.REAKASES 

096A C04A 

09&A c-i*; aosE ii 

0971 OOiA K2UB ^iSSASE.iFF 

0977 004 A RETURX 

097B CC4A 

097B OWA JZ£t 'nii reagent (iling 

0990 C04A JSUKJl 

0^84 034A 

0984 M^n ^Vi 1?fiB£ 



BAOOmaiNAL ^ 
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neicer.t Cet FritMer ^^^^ 

Redqer.: Filma 07-09-ai 

CHstt titi Source Line ISn Perssnil Catouter BASIC Coapiler V2.00 

CTa? :o;a ?c:kt£RI = o 

0S90 C0« C*£« •REAOIR-RJP' FOR IMFUT AS 11 

;o4A IK?UT tl,a£ANUHI:' get ntuber of reigents in direc 

tory 

0932 ;^;a IF RInWW * 0 THEN CICSE ll:RETURN 

Oso: OOU WILE (POlJilER: < RSAHUni) AKD (REANArtEl <> TEMPI) 

09FB OC;; LIKH INPUT ll,TERP$ 

0A0£ «U P9IKTER1 « POINTER! ♦ 1 

OAU oo;a Mm 

OfiM CC^A IP REANAnEi <> TE«PI THEM POIHTESI « 0 

0fl2A oow aosE «l 

0A31 004 A RETURN 

0h35 004A 

0A35 004A BET.SDURCE: 

OA:a 004fl LOCATE 23,I:C0L0R 15,0:PRIHT 'Enter Reagent Kite to 'FU 

HCT$" *' 

OfiiC 004A LINE IKPUT;-,R£AKWIEI 

0A7A 004A LOCATE :5,I:PRIMT SFACEia91j 

0A97 004A RETURN 

0A9B 004A 

0A9B OOU SET.HEM.KAnEt 

OAAO 004A LOCATE 23,l:C0L0R 15,3:PRIKT 'Enter New Re*9«nt *; 

OAC& 004A LINE INPUT; '•,K£MHAn£S 

0AD4 004ft LOCATE :5,l:rRlK; S?ACt$(79); 

OAF! 004 A RETURN ■ 

OAFS C04A 

OAFS 004A CISP-DIR: 'displit ^tt^t'^i directory in 4 colmns 20 r 

OAFA 004A 'fejd selected reagent into 5ELKAHEI 

OAFA 004A OPEN •R£A11EF,RJP' FOR INPUT AS II 

OBOl 004A INPUT I^SELNAnEt: 'read And discard data file aat 

e 

OBIO 004A INPUT ll.saNAnEI: 'read and save reagent naie 

0B2F 004A CLOSE II 

0B3A C04A 

OBU 004A OPEN •REAOIR-RJP' FOR INPUT AS II 

0B47 0O4A INPUT ll,REAKUni:' reid natfaer of reagents 

0BS9 004A KESSASEI • 'Reading Reagent Directory Pltaie Naif 

OBU 004A 605UB RESSA6E«0N 

0B69 0O4A fLfcfil « 0 

0B70 004A TEWl « REftNURl - It IF REAKUKl < 80 THEN TEHPl - REANUH 

1 

088B 004C FOR U - 0 TO TERPX 

Qg„ LOCATE (U nOO 20Hl,(lNTtU/20)»20)n 

Q5CA 0C4E ^^^^ SPACES U8M 

080A C04E Ktn II 

OEEC 004E 

OBEC 004E FOR II = 0 TO REANUHl - 1 

OEFA 0C5O ll.REANAKEI 

JcoJ J^c^ LOCATE III nOO tOMl, lINT(Il/20U20J>3 

orir 0050 PRI«T R£W(A«£$| 

Ocic ToSO IF ^^^^^ • ^^^^ ^^"^ 
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.... P*^S£ 12 

Redcw; jet Printer 07-09-8& 

Reaoer.: Filing 15:0<:35 

Oftset Dcti Source Line fer.oo.a Ccuater E^.IC Compiler V2,C0 

OCSc OO50 KtlT i: 

OCBO C050 ClCSt II 

0CB7 005C 5CrJ3 rlHSASE.CFT 

occ: wsa 

OCCi 0050 • IKITIALIIE: 

0CC6 0O50 oinr£>?JJ(4,iJ 

orcT C078 R£V;»<0,05 = 'EeJete' . * . 

OCDF W73 rcKW(0,n = ;Kew.e a rngent liU iro. the directon 

OCfH 

OOlS 



OG73 r£iaj(i,OJ = 'Copy* 

0073 rSmn.V = •Co?y « r«cqe<it iile to a ne*t reigent n»e 



oSfs W7a r^m) = •^e.a« a reagent HU in the directory- 

W73 RLKUtu.Ol = 'Select' 

0078 «£S}lG,il « 'Select a reagent lile to be printed 

0073 IOUIU,0» *£tif 

0078 n£SUJt4,l) = 'Riturn to the lain ienu' 



0069 
0DB4 
ODAO 
0D33 

0007 0073 

0007 0073 COLOr 9,C:aS 

OOEA 0073 LOCATI 21,1 

OOn 0073 FOR U - I TO 80 

OOFE 0078 . •P'J 

OEOB 0073 WEH 11 

OEIB 0078 

0£lB C07B FOR SDiVl « 0 TO 4 

OQi 0078 s^^S ncsy.OFr 

0£:7 0078 W^^iW 

0E37 0078 

0C37 0078 GQSUB OUP.OIR 

OCT 0073 IF FUr. > 0 THIV SOSUa SXOM.ERROR 

0E4£ 0078 PtHU « < 

0E55 0078 

OESB 0078 

0£5B 0073 R^TUKX 

0E5F 0078 

0E5F 007B KcM.KEKI; 

OEM 007B 50S0B «£K1.0Ff 

0E« 0078 nacn « Bswi oiFn 

^E76 0073 53S»SKOa-CI 

0E7C 007H RETUra 

OESO 0078 

0E80 0078 RERU.QH: 

0EB5 0078 LOCATE n,inEkU:ilOHl8 

0E9C 0078 COLOR 0,7 

flM8 0078 FRIKT f\c»<Un«£VJl,01j 

OEcI 0078 LOCftTE 25,40-l£M(rOTSl!rcNUI,in/2 

OEFfl 0073 COLOR 7,0 

0F0& 0078 FRIKT n£KUI((l£KU:,lli 

0F25 0078 R£TURX 

on? 0078 

0n9 0078 REKU.CfT: 

0F2E 0078 LOC;Tc22.tn£Ku1ilOHl6 
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Rsa-r.t Jet Print-r ^^^^^ 
Offset Data Source Line IHfl Personal Coiouter =ASIC Compiler V2.00 



0F45 0078 CCLCR H,0 

0F5I 0078 rSlKT n£jrjJir.EKUI,01; 

0F6F 0078 LOCATE 2!,iC-l£Min£NUJ t«£HUX,n ) /2 

OrA3 0078 PRINT SPACEilLENIfiEKUJlHENUI,!) 1)| 

0FC8 0078 RETURN 

OFCC 0078 

OFCC 0078 SHQK.ERRQR: 

OFDI 0078 OH FLABl SOSUB £Rl, ER2, ES3, ERA 

0078 ERRrSSSJ = EHRO • Strike any key.. • 

OFH 0080 LOCATE 24,40-L£Nl£RnnSSf)/2 

lOH 0080 COLOR 13,0 

1020 0030 PRINT ERRIISGJ; 

1020 OOSO M » 

1037 0080 WILE AJ = " 

I04i OOBO A< « INl^^J 

1050 OOBO MtKO 

1053 0080 6Q5UB FiSSASE.OFF 

1059 OOBO KTURH 

1050 0080 

1050 0080 ERl: 

1062 0080 £r.R« = REAKAnEi ♦ ' Sot Found in Ue Directory 

1072 0080 RETURN 

1076 0080 

107& 0080 ER2: , . . 

0080 ERR^ * 'Reiqent Natt ts too Lonq tl5 characters iai.l 

1085 OOBO RETURN 

IC89 0080 

1089 0080 ER3i 

108E 0080 ERrJ - 'O:rcclory is fall (30 reaqmts iix.) 

109B 0080 RETURN 

109C OOBO 

109C 0080 ER4: ^ ^ 

lOAl 0080 ERR« » 'Cannot «o(li<r S^LECTd reagent Na« 

lOAB OOBO RETURN 

lOAF OOBO 

lOAF 0080 nESSABE.ON: 

1084 OOBO LOCATE 2<,:a - L£NirESSA6E$) / ::CflLOR U,OlPRlNT RESSA 

•GEIJ. 

lOEf OOBO RETURN 

10F3 0080 

10f3 0080 

I0f3 OOBO RESSABE.OFFi 

J0F8 OOBO LOCATE 24,1:C0LSR 15,0:PRIHT SPACEJ(79)i 

1121 0080 RETURN 

1125 0080 

1125 OOBO EKO SUB 

lUC OOBO 

16C9 0080 

5042& Bytes Available 
45713 Bytes Free 

0 Varninq Errorts) 
0 Severe Error Ul 
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Rfiioent hi Printer [^l^ J 

Pattern Fiunq .^.^^.^^ 

onset D.:^ Scurct une IB« Ftrsoa.l Co.puter BASIC CocpiUr V2.00 

0030 0:0c $r:TL£:'R5acc.t Jet Printer SSUBTITLE: 'PattEra Filing' 

0030 OCCo T.CroLZ - -FATrlLS' File Handling for patterns 

0030 0004 

0030 0006 'AOTKSR - «. A. Inevold 

0030 0004 

0030 OGOi -C-^^RlS'tiT (C) 1935 ABEQTT L?i:ilATCRIES 

0030 OOOi * ....... J 

0030 0006 -HcVISlCH - KO 02M2-56 HftE Creation of initial code 

S OOCi '5\STEn . This code can only be co-piled br the B«W^^^^ 
0030 0006 • cCJtPILER, it -111 not run under the INTEktRETERII 

oo:o 0006 

0030 0006 'utSCSlPTIOa: 

0030 0006 ' This wdule illfl- Hie handling (cr patterns, When mv 
oked, it display* , 

0030 0006 ' ' the current contents of the patten directory in A colu 
ins of 20 entries 

0030 0006 ' each. The pattern .hich is currently selected for prin 
tioq is iarked by 

0030 OOOi ' an asterisk to the leU of the pattern naie. After the 
directory is listed 

0030 0006 • the user IS presented -ith 5 tenu choices. The left an 
d right arrows are 

0030 0006 • «e«J to highlight lenu itcis and the enter key i$ used 

to invoke action. 
0030 0006 * The ienu choices ind tr.«ir actions are: 

JJjJ JJJ* . CELETE - Pf.c*< * pattern Hit ffot the directo 

0030 0006 COPY - C:oi a pattern file to a ne- pattern n 

ue, saving the old Oittern 
0006 • - Change the naie of the pattern mthout 

chaaging the pattern itself 
0030 0006 • SELEH - Selct a pattern for printing 

Q030 0006 ' - Return to the eaiB wnu 

0030 0006 

0030 0006 'DATA CICTIOKARY 

0030 0006 • Tlf?El «hich tyoe of talid key ■« P«hed 

0010 0006 ' «CTIJI Khich lena itei i$ being pointer to (0-41 

0030 0006 • Olf" 0"^**^" *° °' 
I 

0030 0006 • nJ«i Error type 0-A 

OMO 0006 • WIKTERI Position of PATKAREI in directory li«t 

0030 0006 • PATHWl Haiber of pattern naaes in directory 

flOM OO06 -^"^ aSUrct tUMots in a pattern file 

0030 0006 ' TinPl Storage for integers during pattern copy 
0030 0006 ' n Counter used during pattern copy 

0030 0006 • « ^^^^^^^ P*"**"" 

0030 0006 * M , 

0030 0006 ' FUKCTS Printed at bottot of screen during pro.pt fo 

r pattern fla« ^ 
0030 0006 PATKftftES Pattern nate currently being norked on 

0030 0006 • SELKAWES Pattern naoe currently selected for printing 
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75 



20 



25 



Pattern 



•ct Pri 



OHse; Ditj Source Lint 



0030 
0030 



0030 
0030 

C030 

0030 

0030 

0030 
0030 

0030 

0030 



OOCc 
CC06 



0030 COOi 



OCGs 
OCO^ 

OOCi 

000& 
COCA 
OOCi 



PA5E 2 
07-09-00 

rcrsonii Ccftouter B«IC Ccipilcr V2.00 



Filcftiie pittcrn dita file 
Filenaae tcr source saltern dit* file useo i 



Fileniie tcr destinUicn pattern data file u 



:F:L£< 
arino copy 

• * :?iLEt 

sed ^uriec cooy 

K£KNAn£« He- pattern naie for COPY and RENAWE 

TERPt Pattern naies are held here as the directory 

is beiflfl re-nnttin 

KE¥FILEI Destination filenaae used while copying patt 

KB data files 

MESSAGES A lessage printed at the hottot of the scree 

^ n£NU$(4,ll Array of strlnqs containing the short and lo 

ng ftcno naies 

[RRKSSJ nessaqe printed ihen any error occurs 

Appended to ERRKSBI to indicate nature of er 



ERRI 
for 

TEW 
ero data files 
RSn $PA6E 



Storage of real variables -hile copying patt 



30 



35 



40 



45 



SO 



55 



^eaaent 
Pattern 



;et Printer 
Filing 



Offset Data 



f;5E 3 

07-09-56 
I3:ll:4& 

m Personal Coaottter BASIC Coioiler v:.00 



0030 


0006 


00^7 


0006 


0047 


00Q& 


0040 


OO06 


00S4 


0008 


0054 


00C3 


005F 


0008 


0069 


OOOC 


007€ 


OOOC 


0062 


OOOC 


0085 


OOOC 


OOAA 


OOOC 


OOCF 


OOOC 


00E9 


OOOC 


O0E9 


OOCC 


OOFS 


OOOC 


OCFC 


OOOC 


OOFC 


OOOC 


0100 


OOOC 


otoo 


OOOC 



Source Line 

?J8 PATTERM.FILE STATIC 

605UB IHITIALIZE 
TYPEl • 0 

KHILE TYPEl O 3 
AS « 

MHILE AS « " 

Al ' IKKEYI 

yEKD 

IF Af » CHR«(0) ♦ CHKS1751 THEN TYPEl « I: 



IF AS = CHRS(O) ♦ CHRS177) TKEH HPEl • 2: 



'left arroM 
'<cr> to execute selection 



OK TYPEl 50SUB Tl, T2, T3 



VEHO 

EXIT SUB 
RER SPAGE 
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5 



10 



15 

Reacer.t Jet rrintcr 
Pattern Firing 



Offset 


D«t« 


Source Line l^^ Personal Cosouter BASIC Ccioiler 


0100 


()COC 


•IHIIMI SUB-nOUTINEa run THIS WOULE 


0100 


ootc 






0100 


occc 


Tl: 


'left arro* 


0105 


eooc 




TXTU « 0 


OlOC 






IF «DiUI = 0 THEN RETURM 


CUB 


00C€ 




Dim = -I 


0122 


ccio 




BCSUB ie»*,R£NU 


0128 


0010 




RCTURK 


0i2C 


9010 






012C 


0010 


T2: 


'ricltt arroH 


oi:i 


oo;o 




TYFEl = 0 


0136 


0010 




IF REKUl = 4 TMK RETURN 


OUT 


0010 




diff: « 1 


OME 


0010 




6QSU8 KEV.HEKU 


0154 


0010 




RETURN 


0158 


0010 




•<cr> (execute selected lenu itei) 


015B 


0010 


T3: 


0150 


0010 




IQCATE 25,1:PRINT 5PACEI(79I; 


017A 


ooto 




ON HEKUX + I 6CSUB T3A, T3B, T3C, HO, HE 


oiaF 


0010 




605UB HEKU.QN 


0195 


0010 




RETURN 


. 0199 


OOlC 






0199 


0010 


m SPACE 



^5 



50 
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rEintn: get rrirur ^ 

Offset Oita ::orc8 line IB* Personal Cosouter BoIC Cojoiler V2.00 

01=9 :o;Q T:A: (i=i*-e p-ttsrn 

01?E MIO = 0 

OlftS OfllO "JCU =^ 'Delete' 

OlAf OOM ^"^3 ctl.SCUHCc 

OPS 0C14 :f i£HiPA7K;rin = o then return 

OCIB :? PATV;7^< = SH-JtW^J THcN FUSI = *:G0SU8 SHOM.ERROR: 

01E7 OOlt c23UB SEARCH 

qJ^jj j^,£ I? pciuTE;.! = C THEK FLASI » l:60SU3 SHCV, ERROR: REIURH 

02o5 00^ ?^SS;3E$ = -Deletinq ' + PATHAKEJ + • Please Wait.. 

0220 002A SCSUS rlSSASE.CH 

'r«i«riti directory deltting PAT>iA«EJ as indicat 

eii by FOIXTEXI 
0226 0024 tia •PATMR.OU)' 

022D 0024 KABE -PATOIR-RJP' AS •PATUIR.QLO' 

0257 0024 C?£M 'PATOIR-QIO' FDR INPUT A3 •! 

02^8 0024 CP£H •PATBIR.RJ?' FOR OUTPUT AS 12 . 

025A 0024 

02;A 0024 il, PATKUSl 

02AC 002i PATOl = PATRUftl - I 

027S 002A WUE ^^PATUUm 

028& 002& 

0:96 002i ir PATKUm • 0 IhEH SOTO OIR.OOHE 

W26 FOR II = I TO PtTMUni ♦ I 

IHPUT IK?ATHAftEf 

IF II O POINTER! THEN PRINT U.PATNAKES 

KEIT II 



QCSE H-.aOSE \2 

'retove data file 
Fll£« . RIBHT<lSTnMPaiNTEM),LEHtSTRI(?0IN7tRI))-n ♦ 

•PAT.a:?' 

tlVi F1L£« 

'rcnavc retaining daU Hits to uintain linked 
list lilh dirtclory 

mil (PftTKUni ♦ U > PfllHTERI 

SFIUI = RlBHTt(STRJlP0INTERl4U,LEN(5TRJ(PQlKT 

ERI+in-U ♦ •PAT.RJP' 

mas s RlSHTnSTRHPQlHT£RIl,L£NiSTR$(P01KTER 

l)).ll ♦ <PAT.R-V 

HAKE SFIIEJ AS DFlLIt 
POIKTERI » POINTERI ♦ I 

VEND 

SQSUB nESSASE.CFF 
PATs;yi£i « S£i:«K« 

6QSUB T30A 
60SUB OISP.OIJI 



02A4 


0028 


02Pfc 


0023 


0203 


002A 


02E5 


002A 


02E5 


002A 


OIEA 


002A 


o:fb 


002A 


02F8 


002A 


02F8 


C02A 


03IC 


002£ 


0:23 


007E 


0323 


002E 


0373 


002E 


0333 


oo:£ 


035? 


0032 


0370 


003& 


0387 


003^ 


039C 


0036 


0393 


0036 


0393 


0036 


0399 


00!6 


03A3 


0036 


0IA9 


0036 
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5 



TO 



75 



20 



25 ?A5£ & 

Reagent ^et Printer 07-09-86 

Pattern riling 15:11:46 

onset 0.t. Lire 

30 

03AF 00:6 Jf^^i"** 

03B1 0036 

03B3 CC3fc 



35 



40 



45 



50 



55 



74 



Reaqen: Jet Pr:-*er ' 
Pattern Fihcq 07-09-ca 

Offset ::urce ti.^e -t-^ Personal Cc:?uter BASIC Cccoiler V2.00 



0333 


0036 


036c 


003^ 


03Bf 


003a 


0306 




03E; 


mh 


03cB 


003o 


03F: 


vC3A 


04Q3 


003^ 


04 If 


003& 


041f 




0425 




0437 


o::a. 


0457 


oo:a 


0457 


003A 


047C 


0C3A 


0482 


003A 


0482 


003A 


0492 


W3A 


0489 


0C3A 


0493 


oo:a 


04A4 


C03A 


0466 


003A 


04B6 


G03A 


04C6 


003A 


04111 


Ov3A 


04E2 


oo:;; 


04E2 


003A 


04F1 


0C3C 


0503 


0040 


0S13 


0040 


0525 


0040 


0535 


0040 


0533 


0040 


0543 


0040 


0543 


0040 


0543 


0040 


05&7 


O04O 


0586 


0044 


058S 


0044 


059C 


0044 


05A£ 


0044 


05AE 


0044 


OSCO 


004& 


0501 


004^ 


0501 


0Q4& 


OSOB 


004& 


05EA 


0C4A 


OSfA 


004A 


060A 


004A 


060A 


004A 



•::;r pattern 

n?ei = 0 

IF PATS'jri = 80 IHEK FLftSI = 3:fiOSUB SHa«.£RRuil:R£TURH 
rjKCTi = 'Copy' 

££T. SOURCE 
IF LLMtFrT?iAn£fl = 0 THEK RETURN 
603UB SEARCH 

IF POINTER! = 0 THEH FLASZ = l:6GSDB SHQti. ERROR: RETURN 

S3S'JB ECT.KE'i.NA«E 

IF LENINEW^AnEJ) = 0 THEW RETURN 

IF LDltKr^J-'AnES) > 15 THEH FLASI = 2:oOSUB SHOW. ERROR: R 



nURU 



PEEEfiSEI » 'Copying • ♦ PATNAnEt + ' to ' + NEHKAREi ♦ 
Pleise «4it./ 
CGSUB n£SSASE.CK 

'4dd SEVNAREi it ind of directory 
tin. •PATDIR.OLD' 
%rz -PATOIR.RJF' AS 'PATOIR-CLD* 
OPEN •PATOIR-CLG' FOR INPUT AS II 
C?EN •PAT01R,RJP' FOR OUTPUT AS 12 

IXPUT II, PATKUn: 

nmni » fatk-jh; ♦ \ 

m\l I2,?ATW. 

FOR II = I :C - 1 

INPUT llJEflPI 

FRiKT i:,:erfi 

CEIT i: 

PRINT l2,XaKAn£f 

CIC3E n:CLC£E 12 

•triut cooy o< pattern data iiU 
FMI = RISHTI iSTR« (POINTER!) ,LEH(STRI(POlNTERin-n ♦ 

•PALRJP* 

KtfKEI « iiIGHT«(STRilPATKUItt),L£M(STRIlPATNUK!))-l) < 
•PAT.WP* 

QPEK FIlEt FDR INPUT AS II 
OPEN NnFIlEt FOR OUTPUT AS 12 

INPUT ii,aoi 

WITE l2,£LKUn! 

FOR 1! « I TO 4 

IK7UT llJEnP 
KITE njEW 

HEIT U 

FOR II * I TO ELNUHI 

75 



BADOnaiNAL 



0 26S 237: 



PA5£ 8 

Reagent Jet Printer 07-0=J-3& 
Saurc2 Lint 1" P^^^onal Caisuter SfiSIC Conpiler V2.00 

FCR n = I TO 

INPUT »IJEK?1 
KRITt njERPI 

NEXT n 

KEIT II 

CLOSE tl:CLOS£ 12 

SOSUB HESSftBt.OFF 
6C3UB DISP.DIR 
RETURN 

X3C: 'reniie pattern 

HFEI = 0 
FUHCTJ « 'Reftite' 
60SUB Sn. SOURCE 

IF LEH(PftTKAR£$l « 0 THEH RETURN 
IF^POlHT£Rl"« 0 THEH FUGI » l:S03UB SHQM, ERROR: RETURN 

SOSUB 6ET.Hcll.NArE 
IF LEX(liEmr.ES) » 0 THEM RETURK 

IF LENlNDtHfiHEf) > 15 THEH FLAGI « 2:S0SUB SHO«.£RROR:R 

ETURK 

IF H£HS;n£$ • PATNARES THEH R£TURH 

nESSA6E5 . -Reniiing • ♦ PATKWE5 ^ • to ' > HEWKAKEf ♦ 
• Please «4it.,' 

G05UB PESSAoE.C* 

'change ;atlern nate ift directory replacing PAT 
HARE! "ith HDiSAnEJ 
0717 0050 tlVi 'FATOIR-OLO' 

07 E 0050 WHE 'PATOIR.R:?- ^3 -FATOIR-OLO- 

0050 OPEM •FATOIR.OLO- FOR IHPUT AS i\ 

0050 •PATDIR.RJ?' FOR OUTPUT AS 12 



fittern Filinc 


OHset 


Oata 


0&17 


004C 


G61E 


004C 


0630 


004E 


0641 


004E 


0651 


0050 


0663 


0050 


0663 


0020 


0671 


0050 


0671 


0C50 


0677 


0050 


0670 


0050 


06ai 


0050 


0631 


005O 


0636 


0050 


0680 


0050 


0697 


0050 


069D 


0050 


won* 


0050 


VOO J 


0050 


0601 


0050 


0601 


0050 


0607 


0050 


06E9 


0050 


0709 


0050 


071C 


0050 


071C 


0050 


07U 


0050 


0747 


0050 


0747 


0050 



0758 
0769 

077B 0030 ^ ^ 

077B 0050 INWT II, PATMUni 

0730 0050 *«IT£ l2,PATKUni 

079C 0050 

079F 0050 FOR U « I TO PATNUKl 

07aR 00S2 •^•^^^ 

T^r. !oS IF IX <> ^OIHTERI THEH PRIHT •2,TEKPf 

Jj;; if U » POIKTERX THEH PRIHT I2,NEHKA«£$ 

07F7 0052 ^X 

0B09 0052 
0809 



0052 CLOSE lUCLOSE 12 

0817 0052 

0817 0052 60SUB nESSASE.CFf 

OBIO 0052 



select new pattern naie xl necessary 



Aflifi frtM select " n«»«i I 

Si! IF PATHAflct . ^m PRTKMIcI . »»:60SUB t 



3QA 

083C. 0052 GOSUB DISP.OIR 
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TO 



Rejoer.t Jet ?r\Mtr ^^^^ ^ 

Pattern riiino ^7-09-86 

15:11:U 

OHsr. Ziti -wjfce Lire Personal Ccaauter BASIC Coipiler V2.00 

oa<r ocs: fi'v^H 

Co46 0052 

08U 0C52 Jttfl fFi.5E 



75 



20 



Reacent Jet Printer P^SE 10 

Pattern Filing 07-09-86 

OHset Data Source Line IE?1 Personal Cotputer 8ASIC Coooiler V2.C0 



0S4i 0052 nO: 'seUct pattern *or printing 

0E4B 0052 TYPE! « 0 

0832 0052 PUNCH = 'Selecf 

085C 0052 603UB KT, SOURCE 

25 0862 0052 IF L£H(PATHAR£n » 0 THEK RETURN 

0874 0052 IF PATNAKEJ « SELKARES THEK RETURH 

0387 0052 6QSUB T30A 

08BD 0052 50SUB 0I5P.01R 

0893 C052 RETUR« 

0897 0052 

0897 0052 HDA: 

0B9C 0052 SEARCH 

08A2 0052 IF POIKTERZ * 0 THEN FIASI • l:60SUB SHCH. ERROR: RETURN 

088E 0052 

35 o53£ 0052 RESSftSEJ = •Selecting ' ♦ PATKAnEI ♦ • Please Wait. 

m 

• « 

0805 0052 EOSUB nESSAGE.OH 

OeOB 0052 

080B 0052 'clianqe entrys in pattirn default file PATOEF.R 

080B 0052 OPEN •PATOEF.RJP' FOR OUTPUT AS II 

OBEO 0052 FILES « RI6HH(STRI(PQINTERI) .LENISTRKPOINTERII J-l) * 

•PAT.R3P* 

0911 0052 

'5 0911 0052 PRIKT I^FILEI 

0921 0052 PRINT ll,PATKAfl£« 

0931 0052 

0931 0052 CLOSE 11 

0938 0052 BOSUB nESSASe.Crr 

=° 093E 0052 RETURN 

0942 0052 

0942 0052 T3E: 'eiit pattern liling 

0947 0O52 RETURN 

094B 0052 

«5 094B 0052 REn JPASE 
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fteacwl Printer ^^^^^^^^ 
Pattera Filing i5:il:46 
onset Data Source Line IBll Personal Computer BASIC Cowiler V2.00 

09^B OCS: SEARCH: 

0950 C053 PQINTEKI - 0 

0957 0052 TATOIR.RJP* FOR AS 41 

IK?UT tliPATKUnir jet autber of patterns m direc 

097fi 0053 iFPATHUni = OTH£HCLOS£lhRETURM 

00?: Wll^ < PATNUKII AND (PATHAftES <> TEWS) 

oon 0052 LIHE IHFUT ll^TEKPt 

' 0052 PQIHTERI = POIKTERl ♦ I 



09CF 

09D8 0052 

am 



0052 IF PATttAftEJ <> TEKPS THEN PQINTERI = 0 



09FI 0052 CLOSE U 

09FB C052 

09rC 0052 

Z\ Z '"'•'"''Sate r..t:CDLOR 15.0:PRINT -EntT Pattern N„e to 'Fl, 

0A33 0052 t-IHE lKPUT:'\PATHAn£l 

0ft4i 0052 LOCATE 25.UFR1KT SPACES(79)i 

OftSE 0052 ^^^^^ 

mi 0052 

OAil 0052 GET.VEK.HAflE 



0A67 



0032 ' 'locate 25,1:C0H1R 15,0:PR1HT 'Enter Hew PUtern Nate 



0A8I) 0052 LIKE IHPUT; ••.MWAHEI 

0A9B 0052 LOCATE 25,1:PR:sT SPACEH791; 

0AB8 0052 RE^UW* 

5S!c MEP.OIR: 'dis:U, otrectorr i« 4 colu.ns, 20 ro.s 

- V„fl ct^ault pattera na»e into St^Kh?lc$ 

oS 0052 OPe« 'PATSEF,?:?* FOR IKFUT AS II 

OA02 0052 WUT eWSaKASEl! -discaro data liU na« 

OAEA 0052 INWT ll^SaKAREl 

0AF6 0052 CLOSE II 

OAFD 0052 
OAFD 
OBOE 

Sb20 RESSASES = 'Reading Pattern Oif«tory Please «aif 

082A OOS BOSUB KE5SA6E.0M 

5S TO"'UuniM:IFPATKU«I<BOTHENTEr.P^ 



0052 CPES •patoir.h;f- for ikput as II 

0052 ikput ll,FATKUni:' r"^ ""^^^ Patterns 



0B52 C0S2 FOR 11 « 0 TO TEBPl 

OKE 0034 LOCATE (U MO 20)*W(INT(U/20)«201*l 

0054 PRINT SPACEfUBl; 

06A1 0054 KEIT 11 
08S3 0054 

0BB3 ' 0054 FOR U = 0 TO PATKUnX - I 
I,iunill/20)«20MI:PRIMT M-j 
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Seaqent Jel Printer P^St 12 

Pattern Filing 07-09-o6 

Offset Data Source •ine lErt Perscnai CoMuter BASIC Cospiler V2.00 







^4 1 1 i*» 


Ut/ / 






ut/c 










CP711PM 


ULOD 






APS? 




i A i 1 InLlACa 






Will n&AU«^^ 1*1 


vLOC 


C 


K'ViistO 01 s 'Delete* 






nEVul(0,ll * *{ieiove a pattern fill froi the directory' 


orri 


ACT? 


KFHUSll 01 » "Cqcv* 


UV*uL 


vV/C 


R£HU$(l,n = *Copy 'a pattern file to a new pattern naie 

« 


ULr J 




pruittt? 01 s *Renaie' 


uui ^ 


flrt7F 


RcNUI(2,U < 'Renace a pattern file in the directory' 


UuJU 


ArtTC 
Uv/L 


n?W*Jl(3 01 s 'Select' 


Quia 


W/c 


NCMtitfT ft a *(«pl»r^ 1 Riittm 4\\t to he orinted* 


006/ 


vo/c 




0082 


TO/t 






007t 




009E 


W7t 


rni no o A* rt C 


0061 


f-ATS 
W/C 




0D6c 


AATC 


rno T7 s 1 TO SO 


OOCS 


0Q7E 


rnlKl w 1 


0002 


A ATC 

007t 


Hell 11 


00E2 


OOTfc 




OOcZ 


AATC 
OU/C 


CflC KFinil s 0 TO 4 


UUtD 


A ATT 


cnsuB PiMJ.OrF 


oott 




ucrT HruiTT 


ODFt 






Ourt 


AA1C 






vQ/t 


IF FLAGl > 0 Tr£H 605U8 SHOW, ERROR 


API C 


vo/t 


■CU1t7 X A 


ULiw 




EOSUR KtKU.QK 




flATF 
VUrC 






00 7E 


RETURN 


0C26 


C07E 






007E 


KEU.KEKUt 


OuS 


AA7C 
VV/C 


fiOSUfi REKU.CFf 




Wf c 


REKUI s RENUI ^ OlFFI 






605U8 nEMU«ON 




007E 


RETURN 


0E47 


007E 




OW 


C07E 


HEMJ.GKt 


0£4C 


007t 


LOCATE 22,(nE)HJIil01*l8 


0E&3 


007E 


COLOR 0,7 


OEoF 


C07E 


FRIKT REHUI(R£MUI,C)J 


oEeo 


007E 


LOCATE 23,40-L£K(r.EKUIlREKUl,U)/2 


oeci 


007E 


cniloR 7,0 


OECO 


007E 


PRIKT n£KUI(n£NUl,n; 


OEEC 


007E 


RETURM 


OEFfl 


007E 




OEFO 


007E 


.•EHU.OFFj 


0EF5 


007E 


LOCATE 22.in£mU01*l8 


OFOC 


007E 


COLOR H,0 
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ReacEnt Jst Printer [fl 1? 

„ * -1 • 07-09-35 
Pattern nlinq 

Offset Data Source Line IBrt Personal Caiputer BASIC CocoiUr V2.00 

OFIB 007£ PRIKT n£KUttK£HU:,01: 

0F36 007E LOCATE :S,40-L£H(n£KUJtRENUI,l)l/2 

0F6fi 007E PRIHT SPACES (LENCKEKIUIHENUI, DM i 

0F8F 007E RETURN 

0F93 007E 

0F93 007E SHC1(.ERKCR: 

0F98 007E OH FLASl £05119 ERl, ER2. ER3, ER4 

0FA9 007£ ERRHSSJ = ERRJ * • Strike any key..' 

0FB9 0096 LOCATE :A.4C-LEK(EXRnSGn/2 

OFOB 0086 COLOR 13,0 

0FE7 0086* ERWSBJj 

Off* 0086 AS « 

OFFE 0086 WILE Al - " 

lOOD 0086 " 

1017 0CS6 «E«0 

lOiA 0086 BOSUB nESSASLOFF 

1020 0086 RETURK 

1024 0086 

1024 0086 ERl5 

1029 0086 mt « PATKAKEI * * Nat Found in the Oirectcry 
1039 0086 RETURH 

1030 0086 

1030 0086 ER2: ... * \« 

1042 0086 ERM ' •Pattern Kaie is too Long 113 character* m«.) 

104C 0086 RETURN 

lOSO 0086 

10!0 0086 ER3: 

1055 0086 ERRS = 'Oirectory u full 180 patterns 

105F 0036 • RETURN 

1063 0086 

IwS 008& ERRS • -Cannot flodih SELECTd pattern Ma«- 

1072 0086 RETURK 

1076 0066 

SES; 

10B6 0084 RETURH 

lOBA 0084 

lOBA 0086 

Z Z '''''''•S1tE24 

lOEB 0086 RETURM 

lOEC 0086 

lOEC 0086 EKD SUB 

10f3 0086 

1683 0086 



50426 Bytes Available 
45670 Bytes Free 

0 Varninq Error (s) 
0 Scv«r« Error (s) 
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Peacen: Jet Printer ^^^^ ^ 

nain Lir.e Cede ''^"^'^■^^ 

IS:27:04 

Ottset Data Source Line IBn Personil Caiauter BfiSlC Coiailer V2.00 

0030 OOOi R£n sTITlE:'Seigent Jet Printer' ISUBTITLE: 'Hain Line Code* 

0030 0006 

0030 OOOi . 'nODULE - 'nAlN* 

0030 0006 

0030 0006 'AaTHOR - A, Enevold 

0030 0006 

0030 C006 'CDPYRI6KT (CI ISB6 ASBOH LABORATORIES 

0C30 0QO6 

0030 0006 'REVlSIOii - l.l 02-19-B6 NAE Add notes and revise TYPEI resetm 
g 

0030 0006 ' - 1.0 0M4-B6 NAE Crettioft oi initial code 

0030 0006 

0030 0006 'SYSTEH - This code can only be cotpiled by the BASCW 

(J030 0006 • CCnPlLER, it -ill not run under the IKTERPRETER!! 

0030 0006 

0030 0006 'DESCRIPTION 

0030 0006 * This is the win controUing todule for the Reagent Jet 

Printer. 

flO:o 0006 * It displays a wnu in table Ion that alloNS 6 function 

0030 0O06 ' ^* selfcted. PATTERN OEFIHITIOK allo« the user to define 

patterns ^ , ^ 

0030 0006 * to bt printed. PATTrnH FILINS lets the user delete, co 

0030 0006 * and select patterns tor printing. REAGENT CALIBRATION 

periits setting ccac-u 

0030 0006 ' 0^ operation paraieurs for different reagents. R-ftBtH 
T FlUNS is . ^ 

0030 0006 ' the sa.e as pattern hling, PRINT1H5 FRIKT prints the 

0030 0006 ' pattern .ith the selected reagent. SYSTEM EXIT TO DOS 
ertds the session. 

0030 OO06 ' Using op and do.n arro. keys let the user tove through 
the tcnu and 

0030 0006 ' the Enter <cr> key activates the selection- 
0030 0006 

0030 0006 'DftTA OICTIOKARY 

0030 0006 • REKUl This value represents the current tinu 

itei (0-SI ^. , . 

0030 0006 • n£KUt(5,n String array icr displaying tenu itets. 
6 ro« by 2 colutas 

0030 0006 • corresponds to a lenu itft CO- 

0030 0006 ' "^""^ ^" ^^^'^ 

lighted area . , , . • i 

0030 0006 • ^* description displ 
aved at eenu bottot 

0030 OO06 ' mnm This array stores to ro« in •hich the % 

hort lenu naie »iU be displayed 

0030 0006 ' OIFH This value is ised it change nENUI in r 



0030 0006 • TYPEI 
0030 0006 



esflonse to arro« keys ^ . ^ , _ 

• TYPEI This value is set based on Bhich valid 

key 15 pressed ^ ^ ^ ^^^^ ^ ^ ^^^^ ^ ^ ^ 
81 
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Orfset 


Data 


Source Line 






oun ArroK. 3 = <cr: 


00:0 


0006 


Tt.v: 








0030 


0006 


AJ 


00:0 


0006 


W 






rs used in draainq 


0030 


0006 


II 


0030 


0006 


Rl 






is disoUyed 


0030 


0006 


CI 






ter is dispUyed 


O030 


0006 





P.eaaent Jet Printer ^^^^ } 

« ■ * . r 4 07-09-86 

15::7:C4 

IBS Persanjl Ca43uter SfiSlC Coipiler V2,00 



Used to store ftcHU: nhile screen is rti 

Used to store single input iceystrakes 
Used to store sptcial graphics charactt 
tenu table 

Counter used to rerresh display 

Rom in nhich special graphics character 

Colutn in •hich special graphics charac 



Reagent Jet Printer 07-0^-Eb 
Kain Line Code ^j.^^.q^ 

Source Line IBS Personal Coiouter BASIC Coipiler V:,00 



•r.a;o-Uw tcie tor fiJP fteioem 4at Printar 
p;iIM.LlK£.COK: 

ECSUB laiTIALIZE 

mi£ nPEX 0 3 

TYPEl = 0 
A$ « 

WILE A$ « 

AS = IHKEYt 

VEHQ 



OHsn 


Data 


0030 


OCOi 


0030 


oc:6 


0030 


00C6 


0030 


0036 


003C 


OC06 


0030 


0006 


OOG 


0036 


OOAS 


00C6 


0056 


0008 


0356 


CrCOB 


005D 


0008 


0067 


03CC 


0076 


OOCC 


0060 


OOCC 


0083 


OOCC 


0083 


cccc 


OOAB 


OOCC 


OOCD 


OOCC 


0OE7 


OOCC 


00E7 


oox 


00F6 


OOX 


00F6 


000c 


OOFA 


OOX 


OOFA 


cooc 


0101 


OOCC 


0112 


OOCC 


0116 


oooc 


0116 


OOCC 



IF Al ■ CKRKO) ♦ trntni) THEK HPEI » 1:* 
IF Al « CHRS(O) ♦ CHRII801 THEN TYPEX = 2:* 



^ arro« 

dciin arrw „ , . 

IF Al « mu\l) THEK TYPEl » 3i 

<cr> exmte cooiand 

OM HPEl 603UB Tl, T3 

VOO) 
CLS 

COLOR 7,0,0 
SYSTEM 

RER JPAEE 



82 



- 0 258 237 - - 



Iz^zM Jet Printer ^^^^ ^ 

Hdin Line Code 07-09-9^ 

15:27:04 





Data 


Source Line lo^ Persanal Coiputer BASIC Cocsiler V2.00 


OIU 


OOOC 


'HHiui SUB-ROUTINES FOR flMK ?ROSRAft 


OIU 


OOOC 


Tl: 


'up arroM 


Oils 


OOOC 




IF KENUI ' 0 THEN RETURH 


OHA 


OOOE 




OIFFI = -I 


0131 


0010 




E0SU6 m.nm 




0010 




RETURN 


0138 


COlO 






013B 


0010 


T2: 


'down irron 


0140 


0010 




IF HENOZ = 5 THcH RETURN 


OMF 


0010 




OIFFI • 1 


0156 


0010 




60SU6 NEU.KEKU 




OOlO 




RETURH 


OUO 


0010 






ouo 


0010 


T3: 


ON RENUI ♦ 1 EOSUo 131, n2, 133, n4, TSZ, T36 


Oib5 


0010 




017C 


0010 




IF KEKUI < 5 THEN TYFEI = Or reset TYPEI so proqra 






Mon't end 


015E 


0010 




SCREEN 0,0,3,3 


01AS 


0010 




RETURN 


OU? 


0010 






OlA? 


0010 


T31: 


'pattern definition 


OlAE 


0010 




CALL PATOiTRY: 'in iodule PATENT 


OIBA 


0010 




eOSUB REFRESH 


OICO 


0010 




RETURN 


01C4 


0010 






01C4 


0010 


n2: 


•pattern Hlinq 


01C9 


0010 




SCREEN O,O,0,0:CLS 


OIEj 


0010 




CALL PATTERNJILE: 'ia lodule PATFILE 


OlFl 


0010 




RETURN 


OlFS 


0010 






01F5 


0010 


n3: 


'reaqcnt calibraticn 


OlFA 


0010 




CALL fiEA3£HT,CHwi£SA:E:*in «odule REACAL 


0206 


0010 




RETURK 


020A 


0010 






020A 


0010 


T34j 


Vcaqent filinq tenu 


020F 


.0010 




SCREEN 0,0,0,0:CLS 


0226 


0010 




CALL REA5EHT.F1LE: 'ift todule REAFILE 


0237 


0010 




RETURN 


023B 


0010 






023B 


0010 




•print pattern 


0240 


0010 




CAa PATPRINT: 'in udule PATPRINT 


024C 


0010 




RETURN 


0250 


0010 




•exit systei, don't reset TYPEI 


0250 


0010 


nil 


0255 


0010 




RETURN 


0259 


0010 






0259 


0010 


REH fPABE 
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;,acen; ^1 rrrnter '^^^^^l 
nam une u)de ^^^.^^^^^ 

Gffsr. Cata Sc.rce Line IBS rersanal Cceputer BASIC Ccaciler V2.00 

0259 0010 «='i.r.EJrJ: 

025c MIO nEW.OFF 

0264 OOlO fttJ^JI = fSnUI + OIFFl 

0270 CCIO 6QSIIB r.SJ^i-llH 

0271 OQIO ^tTURM 
027; WIO 

027ft 0010 !«niAlUE: 

027F 0010 CALL PCI.IKIT 

02oB OOlO 

02aB COIC * ieHna and initialize arrays 

028B COlO ffiO*Zl51 

02SC OOlC JROW(O) ' < 

029E COIC mna) = i 

0231 oflic rac«(2) = 10 

02C^ MIC KvO«l3J = 12 

0207 OOlC «?.Cia(*l « lb 

02£A OOlC RM«t3J = 20 

02FO OOlC 

02F0 COIC DIMIEMUKS,!) 

02FE 00« RtS^CRE riKlJ.S7RIKB.WTA 

0305 COAC FCS II « 0 TO 5 

030B mZ K£NU$iU,Cl,K£NUJai,l) 

033B OWE KEIl II 

0346 0C4E 

034B C04E • set initi*! values mio variAbles 

0348 004E TTPcl = 0 

0332 004t R£*^JX = 0 

0359 OOAE ^ ^. 

0359 0^4E SEFKESH:'f6iira« screen inc r.i:Miqht current lenu selection 

035E CC4E 

035E 0:4£ B:7££N 0, 0,0,0: CIS :Cr.:H 7,0,0 

038B OO^E LCCATE lO,32:rR:KT "Iciaing nenu ' 

03A5 004E 5:?i£i( C,0,3,0:CIS 

03C2 oa« 

03C2 W4E 

03C2 004E COLCR 13,0 

03CE 00« LCCfiTE U3i 

03D5 004E 'REAEEKT JH PRINTER'; 

03Ea 0C« CCuCR 10,0 

03F< 0C4E LOCATE 5,24 

0401 C041 PSI'JT -PATTIRN' 

040c 004E LOOiTE 11,26 

04U co;£ •reasekt- 

0428 CC4E LCCATE l&.2i 

0435 004E 'PRIKTIKS- 

0442 004E lOCATE 20,27 

044F 004E PRIH^ •StSTEr 
045C 004E 
04SC 



004E " erw the leflu table in special graphics characters 



045C 004E COlia 9,0 

04AS 004E FtiR II « IB TO 

OUF 004E LOCATE 2.:i:PRIKT 'fl-, 

046A 004E LOCATE B,II:FR1SJT -p-, 

04A5 004E LOCATE M,IIsPRIttT 
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F.fiGer.t get rrir.tEr ^^SE ^6 

r.iin Line Code 07-09-56 

OHset Diti Scurca Une ISn Fer^onjl Cctouter 5A5IC CQ«piler V2.C0 



04C0 


004E 


IG:ATE IB.!1:PRIHT 'D': 


OAOB 


004E 


LOCATE :2J::?ftINT -D*; 




OWE 


LOCATE 24,i::PRIKT 


05U 


004E 


KEIl U 


052A 


OO^E 


FOR IX = 3 TO 23 


0328 


004E 


LOCATE II,:7:PR1NT 'J'; 


034& 


004c 


LOCATE ll,64:PRIHT T; 


05U 




UPTT IT 


0571 


004c 


RESTOHE TABLE 


057B 


004E 


m 11 M TO 12 


057F 


004E 


READ RI,C:,CJ 


0592 


0056 


LOCATE R1,CI:FR1HT CI; 


OSAE 


0056 


K£1T 11 


05BE 


0056 






0056 


ffint the instructions 


05BE 


0056 


COLOR 7,0. 


OSCA 


005& 


LOCATE 25,6 


05D7 


0056 


pfilKT •Use or to highlight lenu itefis. 






activate selection."; 


05E4 


0056 




05E; 


0056 


COLOR 15,0 


060A 


0056 


LOCATE 25,15:PRIHT '•; 


0624 


0056 


LOCATE 25,47:PRIKT 'Dr"; 


063e 


0056 




' 063E 


0056 


display the 6 lenu ctiaices 


06^1 


0056 


Jim « nEKUl 


0645 


0053 


FOR BEHOI « 0 TO 5 


064B 


0058 


eOSUB rlKU.CFF 


0651 


0058 


KEiT mm 


0661 


M53 


nmi « TERPi 


0668 


0058 


highlight the currenily active eenu itei 


0668 


0053 


0668 


C058 


60SU6 nEKU.QN 


066£ 


0058 




066e 


0O58 


SCaEEK 0,0,3,3 


06SS 


0058 


RETURN 


0687 


0058 


KEKU.OK: 'highlight the leflu REHUl and display its 


06S? 


0058 






iw 


06^ 


0058 


COLOR 0,7 


069A 


0058 


LOCATE RRO«mEKUI) ,52-LEMt«EHUim£HUX,0>] 


06D& 


0058 


PR1«T K£KU«lR£m,01j 


06F8 


ocsa 


COLOR 7,0 


0704 


0058 


LOCATE 23 ,40.5-LEH lUEHUt (KEHUI, 1) 1 /2 


0738 


0058 


PRINT KEKU$(R£HUX,IJ; 


0757 


0058 


RETURK 


075B 


0O58 


P.£»ni,OFf!'un-highliflht lenu nEKUl and erase long 


075B 


0O5B 


0760 


0053 


COLOR 14,0 


076C 


C053 


LCCATc ni^OyimLMUl) ,5:-lLH(KEftU«tKE«Ul,01 


07AC 


0058 


PRIHT K£KU«tll£KUl,0); 


07CA 


0058 


COLOR 7,0 • 


07D6 


CC5B 


LOCATE :3,40.5-LEN(S£KUS(nENUl,l))/2 



to 
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PASt 7 

ftctccrrl ;et rf inter 07-09-56 
nain Liue Co<le I5:27s04 

- rr. Lin* W Personal Coeputer BftSlC C.piler V2.00 

OHset 54U -.3Jrce Line 

OBOft COS s?AC£fll£Hlft£HU$tn£HUI,ni); 

052F COSH 
0B33 0053 

0933 0053 RcB »?ASE 



86 



Claims 



. 0 iifiP 237 



KeaqeftC Jet Printer P^^E 5 

-am t:r.e Cede OT-OS-Bb 

15:27:04 

offset jiU So'iTce Line • IBft Personal Cotputer BASIC CocMier V2.00 

0533 WS3 DATA FiELDS UScO BY THE RAIH PROSRyt *tu»M« 

0633 0D53 

0333 0CS3 f£>rJ,STRlK3.0ATA: ^lirst entry is «nu nue, secono is lo 
03 description 

0835 oosa 

0838 C0S3 DATA 'OEFIHITIONV 'Create and Bodify Patterns" 

0S3A DATA 'FILIKS*, •Delete, Copy, Renaie, and Select Pa 

Herns' 

C83C iN!a DATA 'CALIBRATIOX', 'Calibrate and ftodify Reaoent Prof i I 

es- 

0B3E CC53 DATA •FILING", "Delete, Copy, Refiaie, and Select Re 

agaits' 

08« OCSa DATA "PRIHT', 'Print Selected Pattern «ith Selecte 

d Reaqent* 

0642 0053 DATA 'EllT TO DOS" /Leave Prograa and Return to DOS' 

0844 O058 

0844 0C58 TAELEj Wirst entry is ro», second is colutn, third is special 
graphics character 

084? oosa 

0849 005B DATA 2,17/2" 
034B 0058 DATA 2,64, •?" 
0840 0058 DATA 8,17, ?C' 
084F 0058 DATA 8,64/4' 
0851 0058 DATA 14,17/C" 
0851 oosa DATA 14, 64, '4" 
0855 O058 DATA 18,17,"C" 
0857 0058 DATA l8,M/<" 
0859 0058 DATA 22,17,"C" 
085B 0058 DATA 22,64,M* 

0850 0058 DATA 24,17, T 
085F 0058 DATA :4,64,"r" 
0861 0058 

0861 0058 OQ 
086S 0058 
0842 0058 

50426 Eyin Atailable 
47680 £/tes Free 

' 0 JUroiog Error($J 
0 Sewe Error(sl 



1. A dispensing system for use in cJiagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 

a jetlmg chamber defining a volume and comprising a first and s cond aperture, the first aperture adapted 
to rec ive diagnostic fluid, the second aperture defining an orifice: 

a transducer in m chanical communication with the jetting chamber, the trar^sducer operative to alternately 
expand and de-expand the volume ol the j tting chamber in response to a selected electrical puis and 
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TO 



T5 



thereby cause the letting chamber to omit a substanti^.y uni.orr.ly sized droplet o. diaQnostic fluid through 
m^eanHo; generating a number o( electrical pulses su«icier,t to cause a desired quantity of the diagnostic 

^agnostic fLs to be dispensed in a desired volurnetric ra^o: and 
a receptacle adapted for and positioned to rece.ve ""'Jt, 

3. T.e invention of Claim 1 wherein the ^V^^^ Jf/^^^^^^ diagnostic fluid and the em^ed 

S^a^ S^rf-rsuc.^^^^^^^^^^^^^^^^ Of tiJfluids are dispensed into the recepta.e in a 

predefined dispensing order. xiannnstic fluids comprises serum and wherein the 

with the serum. 



rihe'^en^on of Oaim , wherein the ietting chamber comprises a cylindrical tube and wherein the 
(s) janeralins «. WcWcal puis* d prMeHnM ouraHCTSte. ,|e™>.meo»nic« mra"! » 
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FIG. 3 



REAGENT FLUID 
RESERVOIR 



400 



.200 



FILTER 



•300 500 



^10 



600 



700 



REAGENT 
JETTING HEAD 



JETTING HEAD 
CONTROL UNIT 



I 



950 
1 



(scope) 




LED 



TARGET 
Z 



900 



800- 



X-Y PLOTTER 



INTERFACE 
UNIT 



COMPUTER 



REGULATED AND 
PRESSURIZED AIR 



-100 



200 



■20 




REAGENT FLUID | 

RESERVOIR 



980 



960 

A 



C 



990 



MAGNETIC 
STIRRER 



FILTER 



UC 



THREE-WAY 
N.C. VALVE 



300 
970 

NO 



SUMP 



COMMON 



VENT FOR 
REAGENT 
JET HEAD 



L 



400 



■ REAGENT 
JETTING HEAD 



soo 



JETTING HEAD 
CO^JTROL UNIT 



^ ' \ ^900 



9S0 



TARGET 



I 



800- 



X-Y PLOTTER 



600 



INTERFACE 
UNIT 



700 



COMPUTER 



FIG. 4 



0 2C8 237 



FIG.Sd 



'530 




R38 R25 C30 



U23 



R39 



C3I 



JC3I 



HAS 



09 ^ 



LOWEfW 



HI6HERX 



RST 



TPB o 




} 




0 268 237 



tn 

< 
cr 
o 
o 
c 
o 



< 



0. 

o 
cr 
o 



JETTING HEAD CHARACTERIZATION 

PULSE WIDTH r 35/xSEC. 



o 

UJ 

cn 
cr 



UJ 

> 

o 
o 
-I 
u 
> 




FIG. 9 

D VIS « 5CP 
O VIS « 1 CP 
VIS « 24CP 



5 7-9 
FREQUENCY. KHz, 

JETTING HEAD CHARACTERIZATION 

PULSE WIDTH .35//SEC. 




FIG.10 

-&TVIS « 5CP 
-9-VIS « iCP 
-A-VIS s 24CP 



5 7 

FREQUENCY, KHz. 



o 

UJ 

cr 

UJ 

> 

UJ 

o 



z 
o 

UJ 

o 
o 



JETTING HEAD CHARACTERIZATION 

60 VOLT, VIS «2, ST«20, DENS-O.S 




FIG.11 



LOG (NUMBER OF DROPS) 



